mot de passe oublier

ploz

XLDnaute Occasionnel
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
 

Jacou

XLDnaute Impliqué
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

XLDnaute Occasionnel
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

XLDnaute Impliqué
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:p
 

ploz

XLDnaute Occasionnel
Re : mot de passe oublier

re =)

j ai avancer un peu j'ai trouver ce bout de code
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
 

Discussions similaires


Haut Bas