mot de passe oublier

[ploz]

Bonsoir à tous,

J ai un user form qui permet à des utilisateur de s authentifier.

Je voudrais ajouter un bouton mot de passe oublier et que l utilisateurs reçois un mail automatiquement

Merci de votre aide

 

[ploz]

Re : mot de passe oublier

A savoir que l adresse mail se trouve en page admin en colonne C

 

[Jacou]

Re : mot de passe oublier

Bonsoir ploz,
Ma boule de cristal étant en panne, je ne sais pas à quoi correspond la page admin ni ce qu'il y a en colonne C de cette page ;-) .
Sans doute qu'avec un fichier joint nous pourrions t'aider avec plus d'efficacité.
bonne nuit
Jacou

 

[ploz]

Re : mot de passe oublier

bonjour Jacou,

merci tout d'abord pour ta reponse,

je vais voir a cela pour l'envoyer en fin d'apres midi =)
ou explique un peu plus en détails =)
Bonne journée

 

[Iznogood1]

Re : mot de passe oublier

Bonjour,

le net regorge d'exemple de code d'envoi de mail par VBA.
Suffit de chercher en fonction de la messagerie utilisée (Outlook / lotus notes ouautre)
Regarde😛

 

[ploz]

Re : mot de passe oublier

Jacou,

voici le fichier

merci de ton aide

 

[ploz]

Re : mot de passe oublier

re =)

j ai avancer un peu j'ai trouver ce bout de code

    Dim bStarted As Boolean
    Dim oOutlookApp As Outlook.Application
    Dim oItem As Outlook.MailItem

    On Error Resume Next

    'Teste si une instance d'Outlook est déjà ouverte
    Set oOutlookApp = GetObject(, "Outlook.Application")
    If Err <> 0 Then
        'Outlook non ouvert, lancement d'une instance à partir du code
        Set oOutlookApp = CreateObject("Outlook.Application")
        bStarted = True
    End If

    'Crée un nouveau mail
    Set oItem = oOutlookApp.CreateItem(olMailItem)

    With oItem
        'Destinataire du mail
       .To = dest
        'Définit un mail en copie cachée
        .CC = "monmail@mail.fr"
        'Définit le sujet
        .Subject = "Mot de passe oublié"
        'Le contenu du document est utilisé comme corps d'email
        .Body = "Bonjour" & vbCrLf & "Veuillez trouver ci-joint le mot de passe" & vbCrLf
        'Pour attacher une pièce jointe
        '.Attachments.Add Source:="G:\titi.xls"
    'Send permet d'envoyer le mail
        .Send 'Display
    End With

    If bStarted Then
        'Si Outlook est lancé depuis le code, on le ferme (??!)
        oOutlookApp.Quit
    End If

    'Nettoie les variables
    Set oItem = Nothing
    Set oOutlookApp = Nothing

    End Sub

me reste a faire pour que si ceci entré genre tintin@mail.com il aille chercher sur la ligne -1 pour arrivé au mdp

merci d'avance pour votre aide