j'ai trouvé quelqu'un qui a put me solutionner cela, je donne donc la solution :
1 - S'assurer que les macro sont active : Outils\Macro\Sécurité...
2 - Lancer VBE
3 - Ajouter un module
4 - Copier le code suivant dans le module
5 - Dans la fenêtre principale ajouter un bouton "Nouveau mail"
Clic droit sur la barre/ personnaliser... / onglet commandes
Dans la liste de gauche choisir macro et glisser le bouton
correspondant a NewMailHtml dans la barre d'outils a coté du bouton
"nouveau message"
Changer le texte est l'image du bouton (il est possible d'utiliser
l'image du bouton d'origine)
6 - Dans la fenêtre principale ajouter un nouveau bouton pour "Répondre"
(Macro "ReplyToHtml")
7 - Dans la fenetre de consultation d'email ajouter un bouton pour
"Repondre" (Macro "ReplyToHtml")
8 - Il faut également faire le ReplyAll
Inconvénients :
Dans la fenêtre principale le bouton "Repondre" s'affiche tout le temps meme
quand aucun mail n'est sélectionnner
Amélioration :
==============
Essaye de t'inspirer du code pour faire en sorte que tu change le format du
mail courant lorsque l'evenement "OnNewMail" Arrive. Le code doit etre mis
dans le module "CetteSessionOutlook" dans ce cas.
Voici le code :
================
Public Sub NewMailHTML()
'Create the new Item
Set item = Application.CreateItem(olMailItem)
'Set the format to HTML
item.BodyFormat = olFormatHTML
'Active the windows
item.GetInspector.Activate
End Sub
Public Sub ReplyToHtml()
Dim i As Inspector
Dim e As explorer
Dim s As Selection
Dim mail As MailItem
Dim answ As MailItem
'try to get the activeInspector
'used when replying to an opened mail
Set i = Application.ActiveInspector
If Not i Is Nothing Then
Set mail = i.CurrentItem
Set answ = mail.Reply
answ.BodyFormat = olFormatHTML
answ.GetInspector.Activate
Else
'try with the current explorer
'used when replying to a mail in the main window
Set e = Application.ActiveExplorer
Set s = e.Selection
If (s.Count = 1) Then
'fail if selected item is not an email i.e. :
task,contact,folder...
On Error Resume Next
Set mail = s.item(1)
Set answ = mail.Reply
answ.BodyFormat = olFormatHTML
answ.GetInspector.Activate
End If
End If
End Sub