VBA répondre mail Outlook avec CC

Bonjour,

Ce code permet de répondre à un mail au destinataire avec un message et un autre destinataire prédéfinis en copie.

Mais je ne sais pas comment modifier ce code pour répondre au mail avec tous les destinataires en CC du mail d'origine.

En remerciant de votre aide.

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

Bonsoir,

modifier

Set objReplyMail = oMail.Reply

par

Set objReplyMail = oMail.ReplyAll
Rechercher des sujets similaires à "vba repondre mail outlook"