Discussion :

[issoram]

Bonsoir,

J'essaie d'envoyer un mail de manière automatique et j'ai besoin de vos conseils.
J'utilise pour cela la méthode Send de l'objet MailItem.

Tout fonctionne jusque là, mon problème se situe au niveau du corps du message. Sa mise en forme est relativement complexe (tableaux, liste à puces etc...) du coup je ne peux le stocker (contenu + mise en forme) dans une feuille Excel (ou alors si c'est possible je ne sais pas le faire).

Je pensais donc enregistrer quelque part un mail type (le contenu ne bouge pas) au format .msg et réutiliser le corps et le format via les propriétés Body et BodyFormat pour les "copier" dans le (ou les) mails à envoyer.

Suis je sur la bonne piste ou y' a t-il beaucoup plus simple?

Merci d'avance.

[issoram]

Bonjour,

J'ai finalement trouvé une solution qui me convient.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim oOutlook As New Outlook.Application
Dim oMessage As MailItem
Set oMessage = oOutlook.CreateItemFromTemplate(ChemTemplate) 'CheminTemplate' est le Path du fichier .msg qui me sert de Modèle (Template)
.....
 
Set oMessage = Nothing
Set oOutlook = Nothing

Bonne journée.