Macro Outlook 2003

Question

Bonjour &#224; tous,

J'aimerais savoir s'il est possible de cr&#233;er une macro sous outlook 2003, qui lors d'une r&#233;ponse &#224; un mail par le d&#233;clenchement d'un raccourci ou d'un bouton dans la barre d'outils, entraine un certain type de r&#233;ponse pr&#233;configur&#233; !

Car le syst&#232;me de r&#233;ponse proposer par outlook et assez &#233;nervant car c'est pour toutes les r&#233;ponses !

Je vous remercie de vos r&#233;ponses !

papafred@clan.st

rosedehez · Answer

Ce n'est pas tout à fait ta question, mais ce bout de code te permettra peut-être de trouver la réponse.






Il suffit je crois de remplacer le Forward par un Reply






Transférer un mail en y ajoutant un contenu









Option Explicit





<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

 








Sub TransfererEtAjouter()









 







Dim MonOutlook As Outlook.Application







Dim olSpace As Outlook.NameSpace







Dim MaBoiteDeReception As Outlook.MAPIFolder







Dim j As Integer, i As Integer, x As Integer








 







Dim TransfertDuMail As Outlook.MailItem







Dim CorpsDuTransfert As String








 







Set MonOutlook = GetObject(, "Outlook.application")







Set olSpace = MonOutlook.GetNamespace("MAPI")







Set MaBoiteDeReception = olSpace.GetDefaultFolder(olFolderInbox)








 







‘Le mail sélectionné est l’Item d’indice 1







Set TransfertDuMail = MonOutlook.ActiveExplorer.Selection.Item(1).Forward







CorpsDuTransfert = TransfertDuMail.Body







TransfertDuMail.Body = "coucou" & CorpsDuTransfert







TransfertDuMail.Display








 







'Si plusieurs mails sélectionnés







'For j = 1 To MonOutlook.ActiveExplorer.Selection.Count







'    Set TransfertDuMail = MonOutlook.ActiveExplorer.Selection.Item(j).Forward







'    CorpsDuTransfert = TransfertDuMail.Body







'    TransfertDuMail.Body = "coucou" & CorpsDuTransfert







'    TransfertDuMail.Display







'Next j








 








End Sub










 Rose

Macro Outlook 2003

1 réponse

Discussions similaires