Outlook 2003 - format HTM

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