Signature Outlook dans macro Excel

1Alexiiis 11 Messages postés vendredi 14 juin 2013Date d'inscription 8 juillet 2018 Dernière intervention - 8 juil. 2018 à 12:33 - Dernière réponse : cs_MPi 3872 Messages postés mardi 19 mars 2002Date d'inscription 13 juillet 2018 Dernière intervention
- 9 juil. 2018 à 15:01
Bonjour,

J'ai une macro Excel qui me permet d'envoyer un mail avec un fichier en PJ.
Le problème est que je ne sais pas quel code ajouter pour que ma signature Outlook apparaisse.

Il faudrait un code qui récupère ma signature qui se trouve dans le chemin ci-dessous :
C:\Users\Alexis\AppData\Roaming\Microsoft\Signatures\- Cordialement.htm

J'ai essayé pleins de codes signautres trouvés sur internet mais aucun ne fonctionne.

Pouvez vous m'aider svp ?

Voici mon code VBA :

Sub envoiMail()
Dim Fichier As Variant
Dim Signature As Variant

Fichier = Application.GetOpenFilename("Feuilles de calcul,*.xlsm")
MsgBox Fichier

Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.Application")
Set MonMessage = MaMessagerie.createitem(0)

MonMessage.To = "bidule@bidule.fr"
MonMessage.Cc = ""
MonMessage.BCC = ""
MonMessage.attachments.Add Fichier
MonMessage.Subject = "Commandes"
Contenu = "Bonjour Bidule,"
Contenu = Contenu & Chr(10) & Chr(13)
Contenu = Contenu & "Ci-joint le fichier des commandes"
Contenu = Contenu & Chr(10) & Chr(13)

MonMessage.body = Contenu
MonMessage.Send
ReturnReceipt = True
Set MaMessagerie = Nothing
MsgBox "Votre mail a bien été envoyé."
End Sub


EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

Votre réponse

1 réponse

cs_MPi 3872 Messages postés mardi 19 mars 2002Date d'inscription 13 juillet 2018 Dernière intervention - Modifié par cs_MPi le 9/07/2018 à 15:02
0
Merci
Bonjour,

Après cette ligne
Set MonMessage = MaMessagerie.createitem(0)

Ajoute un .Display qui va mettre ta signature
MonMessage.Display


Il te reste à concaténer la signature à ton contenu
MonMessage.body = Contenu & MonMessage.body


Commenter la réponse de cs_MPi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.