Bonjour,

J'utilise Access 2007, j'arrive à envoyer un email avec ce code depuis des mois:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim I As Integer
Dim oEmail As Outlook.MailItem
Dim appOutLook As Outlook.Application
 
    ' Créer un nouvel item mail
 
    Set appOutLook = New Outlook.Application
    Set oEmail = appOutLook.CreateItem(olMailItem)
 
    ' Les paramètres
 
    oEmail.To = "blabla@live.fr"
    oEmail.Subject = "Sujet"
    oEmail.Body = "grrr"
 
    ' Envoie le message
    oEmail.Send
 
    ' Détruit les références aux objets
    Set oEmail = Nothing
    Set appOutLook = Nothing
Tout fonctionne bien.

Mais, je n'arrive pas à trouver la méthode pour utiliser un modèle Outlook au lieu de mettre du HTLM dans oEmail.Body

J'espère que vous pourrez m'aider et je vous en remercie d'avance.

Cordialement,

Gaetan