Bonjour,

Je solicite votre aide pour la raion suivante. Je voudrais envoyer des e-mail's avec un image insérée + une signature (image aussi)

pour le moment j'ai le code suivant qui me permet d'insert des images (Le resultat et un peut bizard)



Set config = New CDO.Configuration
With config.Fields
  If vopt_pass = "" Then
   .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
  Else
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  End If
 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = vobl_server_smtp
 If vopt_pass = "" Then
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
 Else
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
   .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = vopt_UserName
   .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = vopt_pass
 End If
 .Update
End With
Set EMAIL = New CDO.Message
With EMAIL
    Set .Configuration = config
    .From = vobl_De
    .To = vobl_A
    .Subject = vopt_sujet
       
    .HTMLBody = vopt_text & "<IMG src=""LOGO"">"
    .AddRelatedBodyPart vobl_PathComplet, "LOGO", cdoRefTypeLocation
   
    vopt_PathJoin.Path = vopt_PathFileJoint
    vopt_PathJoin.Refresh
    v_index = vopt_PathJoin.ListCount
    For v_dep = 0 To v_index - 1
    vopt_PathJoin.ListIndex = v_dep
    v_FilSen = vopt_PathJoin.Path & "\" & vopt_PathJoin.filename
    If Dir(v_FilSen) <> vbNullString Then
     v_NbPièce = v_NbPièce + 1
     .AddAttachment v_FilSen
    Else
      v_dep = v_dep - 1
    End If
    Next
   
   .Send
End With
Set config = Nothing
Set EMAIL = Nothing
  SEMAIL = True

Mais j'ai riens pour inséret une signateur.
Merci de votre aide.