Discussion :

[coucou_tt_le_monde]

bonjour,

Je souhaite envoyer un mail avec accusé de réception. J'ai trouvé la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
.fields("urn:schemas:mailheader:disposition-notification-to") = "expediteur@provider.fr"
.fields("urn:schemas:mailheader:return-receipt-to") = "expediteur@provider.fr"

Mais comme une cruche je ne sais pas quoi mettre à la place de disposition-notification-to et return-receipt-to...

Intégré dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim iMsg As Object, iConf As Object, Flds As Object
Dim i As Integer
 
Set iMsg = CreateObject("cdo.message")
Set iConf = CreateObject("cdo.configuration")
 
Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.35.43.5"
    .Update
End With
 
With iMsg
    Set .Configuration = iConf
    .From = "v.e@...fr"
    .To = "v.e@...fr"
    .Subject = "test"
    .HTMLBody = "testAccusé3"
    .Fields("urn:schemas:mailheader:disposition-notification-to") = "expediteur@provider.fr"
    .Fields("urn:schemas:mailheader:return-receipt-to") = "expediteur@provider.fr"
    .Send
End With

Pourriez-vous m'éclairer ?

Merci

[pgz]

Bonjour.

Je ne suis pas sûr, mas je crois que pour demander un accusé de reception, on peut utiliser la demande de Message Delivery Notification, soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

iMsg.MDNRequested = True

A vérifier.

PGZ

[coucou_tt_le_monde]

Ca marche pas...
Merci quand même

D'autres idées ?

[Thierry'']

Et en essayant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
iMsg.ReceivedTime
iMsg.ReadReceiptRequested = True