Intégration d'une image ou (signature)

Private Sub CommandButton4_Click()
    On Error GoTo Error_send

    Dim selecteditems As String
    Dim i As Integer

    For i = 0 To Me.ListBox1.ListCount - 1
    
        If ListBox1.Selected(i) = True Then
    
            selecteditems = selecteditems & ListBox1.List(i, 0) & vbNewLine & vbNewLine
            selecteditems = selecteditems & ListBox1.List(i, 1) & vbNewLine
            selecteditems = selecteditems & ListBox1.List(i, 2) & vbNewLine & vbNewLine
            selecteditems = selecteditems & ListBox1.List(i, 4) & vbNewLine
            selecteditems = selecteditems & ListBox1.List(i, 5) & vbNewLine
            selecteditems = selecteditems & ListBox1.List(i, 6) & vbNewLine & vbNewLine
            selecteditems = selecteditems & ListBox1.List(i, 3) & vbNewLine
            
        End If
        
    Next i
        
    If selecteditems = "" Then
        MsgBox "Sélectionner un élément dans la liste de choix"
        Exit Sub
    End If

    Dim messageHTML As Variant
    Dim objMessage As Variant
    Dim piece_jointe As Variant
    Dim signature As String
    
    '----------------------------------------crée le fichier à envoyer
    CommandButton4.Caption = "veuillez patienter"
    CommandButton4.ForeColor = &HFF&
    CommandButton4.Font.Bold = True
    
    Dim oCdo As Object
    
    Set oCdo = CreateObject("CDO.Message")

    With oCdo

        With .Configuration.Fields
          
          .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "*******.fr" 'remplacer ici le smtp par celui de son fournisseur d'accés
          .Item("http://schemas.microsoft.com/cdo/configuration/smtpusetls") = "***"  'port utilisé
          .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "True"  'port utilisé
          .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1" 'S authentifier
          .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******" ' Si autentifié le nom d'utilisateur
          .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******" ' Si authentifié le mot de passe
          .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'network
          .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
          
          .Update
        End With
    
        .Subject = "Note d'information"
        .From = "************" 'adresse mail de l'expéditeur n'est pas obligatoire
        .To = "*********" 'Email du destinataire doit-être correct ici
                 
        '.Cc = [B3].Value 'Email du destinataire en copie
        'ou pour un envoi en anonyme
        '.BCC = (B3).Value 'Cci ou Bci devient BCC en Englais
        
        '----------------------------------------Création le corps du message avec insertion de sauts de ligne
        '.TextBody = "Bonjour" & " " & [C2].Value & "," & vbCrLf & vbCrLf
        .TextBody = "Bonjour," & vbCrLf & vbCrLf _
            & "Ce message est envoyé par " & Environ("USERNAME") & vbCrLf & vbCrLf _
            & "Le locataire a tenté de vous joindre sans résultat, veuillez le contacter dans les meilleurs délais." & [C3].Value & "." & vbCrLf _
            & "Pour information voici ses coordonnées :" & vbCrLf & vbCrLf _
            & "Code logement :" & vbNewLine & selecteditems _
            & vbCrLf & TextBox4.Text & vbCrLf & vbCrLf _
            & "Je vous prie de faire le nécessaire ce jour. Cordialement." & vbCrLf & vbCrLf _
           
           

        .Send 'envoi du mail
        
            End With
    
    MsgBox "Le mail a été bien envoyé !" 'Confirmation de l'envoi
    CommandButton4.Caption = "Envoyer un message"
    CommandButton4.ForeColor = &H80000012
    CommandButton4.Font.Bold = False
    '---------------------------------------Si erreur on sort de la procédure

Fin:
    Set oCdo = Nothing 'On libere la memoire
    Exit Sub
 
Error_send:
    '---------------------------------------Description de l'erreur survenue
    MsgBox "Erreur d'envoi " & Err.Number & "  " & Err.Description
    Resume Fin
End Sub