Macro Outlook - Répondre à un mail avec message prédéfni

[wizard0147]

Bonjour à tous,

je cherche à créer une macro dans outlook me permettant de répondre un texte prédéfini à certains mails.

Ainsi, lorsque je cliquerai sur un bouton, outlook ouvrira la répnse avec un message préféfini et en ajoutant une adresse email en Cci.

Je n'aurai alors qu'à valider l'email et à cliquer sur "Envoyer".

J'espère être suffisamment clair.

Merci d'avance

 

[wizard0147]

Re : Macro Outlook - Répondre à un mail avec message prédéfni

J'ai trouvé ce bout de code :

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

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

End Sub

Ca ressemble beaucoup à ce que tu as fait. Il m'affiche bien le message de reply par contre impossible de rajouter un Cci et mon texte...

En effet, lorsque je rajoute objReplyMail.Body ="Mon texte", outlook me supprime le reste du message...

 

[wizard0147]

Re : Macro Outlook - Répondre à un mail avec message prédéfni

Oups double post

 

[JNP]

Re : Macro Outlook - Répondre à un mail avec message prédéfni

Re ,
Logiquement

objReplyMail.Body = "Test d'ajout de texte" & objReplyMail.Body
objReplyMail.BCC = "[EMAIL="toto@toto.fr"]toto@toto.fr[/EMAIL]"
objReplyMail.Display

devrait le faire.
Bon courage

 

[wizard0147]

Re : Macro Outlook - Répondre à un mail avec message prédéfni

En effet, maintenant ça marche. Merci beaucoup

Par contre, il n'y a plus aucune mise en forme ? C'est possible de les récupérer ?

 

[JNP]

Re : Macro Outlook - Répondre à un mail avec message prédéfni

Re ,
Tu n'est pas difficile, toi ... Quand je pense que c'est ma première macro sous OutLook... Moi, mon truc, c'est Excel en principe ...
Enfin, essaye ça, ça devrait le faire :

objReplyMail.BodyFormat = olFormatHTML
objReplyMail.HTMLBody = "Test d'ajout de texte" & objReplyMail.HTMLBody

A plus

 

[wizard0147]

Re : Macro Outlook - Répondre à un mail avec message prédéfni

Enorme merci, ca marche impec
Félicitations pour ta première macro sous Outlook

Dernière question (Promis), comment je mets en forme le texte que je tappe (Retour à la ligne, couleur, police...)

 

[JNP]

Re : Macro Outlook - Répondre à un mail avec message prédéfni

Re ,
C'est là que les Athéniens s'ateignirent ...
Vu que tu veux du HTML, il faut que l'ajout à ton Body soit codé en HTML, et là, je déclare forfait, c'est pas du tout ma tasse de thé... Ça devrait passer par du <Color=...><\Color> etc...
Très grand courage

 

[JNP]

Re : Macro Outlook - Répondre à un mail avec message prédéfni

Re ,
Si tu veux t'amuser

objReplyMail.HTMLBody = "<span style='font-size:10.0pt;font-family:""Arial"",""sans-serif"";mso-fareast-font-family:""Times New Roman"";mso-fareast-theme-font:minor-fareast;color:blue;mso-no-proof:yes'>Test Ligne 1<br>Test Ligne 2<br></span>" & objReplyMail.HTMLBody

J'espère que tu n'as pas trop de présentation à faire !!!
Bye

 

[JNP]

Re : Macro Outlook - Répondre à un mail avec message prédéfni

Re re ,
A priori, tu peux simplifier

"<span style='font-size:10.0pt;font-family:""Arial"",""sans-serif"";color:blue;'>Test Ligne 1<br>Test Ligne 2</span>"

<br> comme tu l'as compris, c'est "break" pour passer à la ligne.
Sans rancune

 

[wizard0147]

Re : Macro Outlook - Répondre à un mail avec message prédéfni

Parfait, j'étais justement en train de me prendre la tête parce que je n'arrivais pas à modifier la taille du texte sur 11. Je passais par font size=...
Macro parfaitement fonctionnelle

Merci beaucoup pour le temps passé et ton aide précieuse