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:
quelqu un connait il un autre moyen sans utiliser outlook?
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
Partager