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.