Messagerie Outlook via VBA

Bonjour,

Ce code permet de répondre à un mail dans Outlook avec un message prédéfini. Comment faire pour aller à la ligne après "Bonjour" et "traitée." avec un saut de ligne ?

En remerciant de votre aide.

Sub TestReply()

Dim oMail As Outlook.MailItem
Dim objReplyMail As Outlook.MailItem

Set oMail = ActiveExplorer.Selection(1)
Set objReplyMail = oMail.Reply
objReplyMail.Display

objReplyMail.BodyFormat = olFormatHTML
objReplyMail.HTMLBody = "Bonjour, Votre demande a été traitée. Cordialement." & objReplyMail.HTMLBody

End Sub

Bonjour,

Essaie comme ceci (enlève 1 <br> si tu préfères juste aller à la ligne) :

objReplyMail.HTMLBody = "Bonjour,<br><br>Votre demande a été traitée.<br><br>Cordialement."

Cordialement,

Bonjour,

Merci pour votre solution. Par contre, pourquoi çà ne garde pas la même police ?

sophang a écrit :

Par contre, pourquoi çà ne garde pas la même police ?

Ca utilise probablement la police par défaut puisqu'il n'y a aucune indication de police ...

Une idée (non testée) avec par exemple la police Calibri :

objReplyMail.HTMLBody = "<div style="font-family:Calibri">Bonjour,<br><br>Votre demande a été traitée.<br><br>Cordialement.</div>"

Hélas, çà ne marche pas : "Erreur de compilation : erreur de syntaxe".

sophang a écrit :

Hélas, çà ne marche pas : "Erreur de compilation : erreur de syntaxe".

Oui effectivement, c'est à cause des ".

Essaie celui-ci :

objReplyMail.HTMLBody = "<div style=""font-family:Calibri"">Bonjour,<br><br>Votre demande a été traitée.<br><br>Cordialement.</div>"

Merci, mais çà ne me garde plus le corps du message d'origine.

sophang a écrit :

Merci, mais çà ne me garde plus le corps du message d'origine.

objReplyMail.HTMLBody = "<div style=""font-family:Calibri"">Bonjour,<br><br>Votre demande a été traitée.<br><br>Cordialement.</div>" & objReplyMail.HTMLBody

C'est parfait.

J'ai juste une dernière requête, je voudrai inclure dans la réponse les destinataires en copie du mail d'origine et rajouter un destinataire en copie.

J'ai essayé ce code, mais çà ne fonctionne pas.

With OutMail
.Display
.CC = "totot@maison.com"
End With

Cordialement.

Essaie avec .Display à la fin :

With OutMail
.CC = "totot@maison.com"
.Display
End With

Il y a ce message d'erreur : Erreur de compilation : Projet ou bibliothèque introuvable."

Sub TestReply()

Dim oMail As Outlook.MailItem
Dim objReplyMail As Outlook.MailItem

Set oMail = ActiveExplorer.Selection(1)
Set objReplyMail = oMail.Reply
objReplyMail.Display

With OutMail
.CC = "totot@maison.com"
.Display
End With

objReplyMail.BodyFormat = olFormatHTML

objReplyMail.HTMLBody = "<div style=""font-family:Calibri"">Bonjour,<br><br>Votre demande.<br><br>Cordialement.</div>" & objReplyMail.HTMLBody

End Sub

Bon avec ce code , çà marche :

Sub TestReply()

Dim oMail As Outlook.MailItem
Dim objReplyMail As Outlook.MailItem
Dim OutMail As Object

Set oMail = ActiveExplorer.Selection(1)
Set objReplyMail = oMail.Reply
objReplyMail.Display

objReplyMail.BodyFormat = olFormatHTML
objReplyMail.CC = "toto@maison.com"

objReplyMail.BodyFormat = olFormatHTML

objReplyMail.HTMLBody = "<div style=""font-family:Calibri"">Bonjour,<br><br>Votre demande.<br><br><br>Cordialement.</div>" & objReplyMail.HTMLBody

End Sub