[VBA] Fonction reply to All

[wizard0147]

Bonjour à tous,

Avec votre aide, j'avais inséré une macro dans outlook permettant de répondre un texte spécifique lorsque j'appuyais sur un bouton:

Sub ReplyFR()
Dim oMail As Outlook.MailItem
Dim objReplyMail As Outlook.MailItem

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

objReplyMail.BodyFormat = olFormatHTML
objReplyMail.HTMLBody = "<span style='font-size:11.0pt;font-family:""calibri"";'><font color=1F497D> Blah blah blah</font></span>" & objReplyMail.HTMLBody


objReplyMail.Display

End Sub

J'aimerais si possible faire un Reply to All au lieu d'un sumple Reply. Quelqu'un peut m'aider ?

Merci d'avance

 

[Pierrot93]

Re : [VBA] Fonction reply to All

Bonsoir,

essaye peut être en modifiant cette ligne :

Set objReplyMail = oMail.Reply

par :

Set objReplyMail = oMail.ReplyAll

Non testé...

bonne soirée.
@+

 

[wizard0147]

Re : [VBA] Fonction reply to All

Testé, ça marche parfaitement

Merci beaucoup Pierrot