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