Ajouter à ma macro pour l'envoi de mail ma signature

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

Bonjour

C'est sur les options d'Outlook que tu dois agir

Va dans Fichier - > Option -> signature et crée une signature qui se pacera automatiquement pour tes messages

Cordialement

Rechercher des sujets similaires à "ajouter macro envoi mail signature"