bonjour,
je cherche a envoye un mail si par exemple le user a perdu le mot de passe.
j ai trouver une facon de le faire mais elle me derange:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton3_Click()
Dim ol As New Outlook.Application
   Dim olmail As MailItem
   Dim CurrFile As String
   Set ol = New Outlook.Application
   Set olmail = ol.CreateItem(olMailItem)
   With olmail
    .To = "address mail"
    .Subject = "PASSWORD "
    .Body = "password"
    .Attachments.Add ActiveWorkbook.FullName
    End With
End Sub
quelqu un connait il un autre moyen sans utiliser outlook?