Confimation de lecture du Email

[Magzonex]

Bonjour

voici le code qui fonctionne très bien, je voudrais... si ses possible qu'il envoie une demande de conrfirmation de lecture, destinataire qui a bien reçu le courrier.. pour mon courrier je fonctionne avec Windows live mail.

Sub CDO_Mail(Chemin As String, FicPDF As String)

Dim iMsg As Object
Dim iConf As Object
If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxxxxx.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = xxx
.Update
End With
With iMsg
Set .Configuration = iConf
.To = MailAdresse
.cc = "xxx@xxxxx.com"
.BCC = ""
.From = """xxxxxxxxxxxxx"" <xxx@xxxxxx.com>"
.Subject = MailSubject
.TextBody = "Veuillez trouvez ci-joint, votre facture en format PDF." & vbLf & vbLf & "Merci de votre confiance." & vbLf & vbLf & vbLf & "Si vous éprouver de la dificulter a ouvrire votre facture suivre le lien pour l'installation de Adobe Reader" & vbLf & vbLf & "http://get.adobe.com/fr/reader/" & vbLf & vbLf & vbLf & vbLf & "www.xxxxxxx.com" & vbLf & "xxxxxxxxx xxxxxxx" & vbLf & "418 931-0608" & vbLf & "xxx@xxxxxx.com"
.AddAttachment Chemin & FicPDF
.Send
End With
Kill Chemin & FicPDF
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Merci de votre aide

bonne journée

 

[Yaloo]

Re : Confimation de lecture du Email

Bonsoir,

Juste avant ".send"

tu mets :

.Fields("urn:schemas:mailheader:disposition-notification-to") = ComboBox1 ' Demande un accusé de réception
.Fields.Update

Cela demandera au destinataire s'il veut envoyer un accusé de réception.

A+
Yaloo