Bonjour,
Suite à mes recherche sur différent forum, je me suis décidé à vous poser la question car je n'ai rien trouvé.
J'ai fait une macro qui me permet d'envoyer un mail automatiquement un pdf dans lequel j'ai inséré la signature par défaut de mon outlook.
Le problème est que la signature se retrouve en haut du mail au lieu d'etre placé en bas du corps de message.
voici mon code:
With OutMail
.To = Range("BD2")
.CC = ""
.BCC = ""
.Subject = "Planning_" & Range("E2") & "_" & Format(Now(), "dd-mm-yyyy")
.Body = "Bonjour," & vbCrLf & vbCrLf & "Veuillez trouver ci-joint votre planning." & vbCrLf & vbCrLf & Range("BM7") & vbCrLf & vbCrLf & "Cordialement."
.Attachments.Add (Range("BD1") & "\" & "Planning_" & Range("E2") & "_" & Format(Now(), "yyyy-MM-dd") & ".pdf")
.display
.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
.display
Merci pour l'aide que vous voudriez bien m'apporter
Suite à mes recherche sur différent forum, je me suis décidé à vous poser la question car je n'ai rien trouvé.
J'ai fait une macro qui me permet d'envoyer un mail automatiquement un pdf dans lequel j'ai inséré la signature par défaut de mon outlook.
Le problème est que la signature se retrouve en haut du mail au lieu d'etre placé en bas du corps de message.
voici mon code:
With OutMail
.To = Range("BD2")
.CC = ""
.BCC = ""
.Subject = "Planning_" & Range("E2") & "_" & Format(Now(), "dd-mm-yyyy")
.Body = "Bonjour," & vbCrLf & vbCrLf & "Veuillez trouver ci-joint votre planning." & vbCrLf & vbCrLf & Range("BM7") & vbCrLf & vbCrLf & "Cordialement."
.Attachments.Add (Range("BD1") & "\" & "Planning_" & Range("E2") & "_" & Format(Now(), "yyyy-MM-dd") & ".pdf")
.display
.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
.display
Merci pour l'aide que vous voudriez bien m'apporter