Insérer une image

Salut tout le monde,

Un petit souci qui m'a déjà pris pas mal de temps, j'utilise le code ci dessous pour envoyer des mails depuis un bouton qui ce trouve sur un userform, tout fonctionne à merveille, merci au forum d’ailleurs pour votre aide.

Mon souci c'est que j'aurai voulu inséré à la fin du mail ma signature, qui est une image (appelée image1), après plusieurs essai il me met toujours la même erreur.

Merci de votre aide.

Private Sub CommandButton1_Click()

Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
'Dim Signature As Object

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)

'Signature = Image1

     With oBjMail
        .To = ComboBox1.Value  ' le destinataire
            .CC = ComboBox2.Value  ' en copie à
                .Subject = "Retard "          ' l'objet du mail
                    .Body = "Salut," & vbCrLf & "" & vbCrLf & "Ta semaine n°  " & ComboBox3.Value & " n'est pas terminée," & vbCrLf & "Merci" & vbCrLf & "" & vbCrLf & Signature  'le corps du mail ..son contenu
                '.Attachments.Add Nom_Fichier
            .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
       .Send

    End With

            Set oBjMail = Nothing
            Set ObjOutlook = Nothing

Useradmin.Hide

Unload Me

End Sub

Bonjour,

Une piste :

.HTMLBody = "blablabla " & vbCrLf & "<img src=C:\ CHEMIN DE TON FICHIER IMAGE>"

Salut,

Merci pour ta réponse. C'est une image qui se trouve déjà dans le classeur, sur un feuille qui se nomme "Données".