Outlook et HTML

[F2T]

Bonjour,

j'utilise la macro ci dessous pour le cors d'un email, cependant, les images ne s'affiche pas et rest blanche. quelqu'un pourrait il m'orienter.

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

Merci d'avance

 

[F2T]

Re : Outlook et HTML

personne n'a d'idée sur l'origine du probleme ou n'a rencontrer ce cas.

Merci pour l'aide si possible.
++