[VBA] Fonction reply to All

wizard0147 · 2 Août 2010

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 · 2 Août 2010

Re : [VBA] Fonction reply to All

Bonsoir,

essaye peut être en modifiant cette ligne :

Code:

Set objReplyMail = oMail.Reply

par :

Code:

Set objReplyMail = oMail.ReplyAll

Non testé...

bonne soirée.
@+

wizard0147 · 3 Août 2010

Re : [VBA] Fonction reply to All

Testé, ça marche parfaitement

Merci beaucoup Pierrot

[VBA] Fonction reply to All

wizard0147

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

wizard0147

XLDnaute Occasionnel

Discussions similaires