Outlook et HTML

Sub MAIL()

Déclarations des objets et des variables
    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim strBody As String
    Dim oFSO As Scripting.FileSystemObject
    Dim oFl As Scripting.File
    Dim oTxt As Scripting.TextStream
    
    'Instance des objets
    Set olApp = Outlook.Application
    Set objMail = olApp.CreateItem(olMailItem)
    'instance des objets Fso pour récupérer le contenu du fichier HTML
    Set oFSO = New Scripting.FileSystemObject
    Set oFl = oFSO.GetFile("C:\Documents and Settings\PRO\Bureau\Mail.htm")
    Set oTxt = oFl.OpenAsTextStream(ForReading)
    
    'récupère le contenu du fichier HTML
    strBody = oTxt.ReadAll

    'Objet mail
    With objMail
       .BodyFormat = olFormatHTML                            'définition du format du mail, ici HTML
       .Subject = "mail test"                               'sujet du mail
       .HTMLBody = strBody                                  'chargement du fichier HTML en tant que coprs du message
       .Display                                                    'affichage du mail
       .Recipients.Add ("listediffusion")
       .Send

    End With

End Sub