Bonsoir a tous !
Je dispose d'une macro qui fonctionne pour l'envoi de mail, mais lorsque je la lance j'aimerais que ma signature figure aussi en bas de mon mail. Je ne trouve aucun code qui pourrait m'aider...
voici mon code :
Private Sub CommandButton1_Click()
Dim OutApp As Object, OutMail As Object, Fichier$
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
ActiveSheet.Copy
Fichier = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx"
ActiveWorkbook.SaveCopyAs Fichier
On Error Resume Next
With OutMail
.to = "ordaz75@lol.com"
.Subject = "Tableau"
.Body = "Bonjour"
.Attachments.Add Fichier
.Display 'pour voir et modifier ou envoyer
'.Send 'Pour envoyer directement
End With
On Error GoTo 0
ActiveWorkbook.Close 0
Kill Fichier
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Merci d'avance