Accusé de reception lors d'un envoi de mail par script VBS

**jeanfly** · 10/05/2014, 19h19

Bonjour,
je m'adresse a vous aujourd'hui pour un problème sur lequel je suis depuis pres d'une semaine sans résultat.
Apres avoir épluché le net ( et en particulier votre site ) j'ai été incapable de trouver la solution.
Je sais que d'autres post concernant l'envoi de mail par vbs ont été ouvert maisayant essayé de participer a une discussion et n'ayant jamais eu de reponse

j'ai decidé d'ouvrir une nouvelle discussion .
Ceci dit nous pouvons entrer dans le sujet

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37

Option Explicit

envoi()

Sub Envoi ()

	With CreateObject("CDO.Message" )
		.From="MONADRESSE@.fr"
		.TO="AUTREADRESSE@.fr"
		.Subject="Test de messagerie"
		.HTMLBody="<HTML><HEAD></HEAD>" & vbCr & _
			  "<BODY bgColor=#ffffff>" & vbCr & _
			  "<DIV><FONT face =Georgia size=3>Bonjour,</FONT>" & vbCr & _
		          "<BR></BR><DIV><FONT face =Georgia size=3>Test de messagerie</FONT>" & vbCr & _			
		          "<BR></BR><BR></BR><DIV><FONT face =Georgia size=3>Bonne journée a tous</FONT>" & vbCr & _
			  "<BR></BR><BR></BR><DIV><FONT face =Georgia size=3><STRONG><BLOCKQUOTE><BLOCKQUOTE>INFO</BLOCKQUOTE></BLOCKQUOTE></STRONG></FONT>" & vbCr & _
			  "<DIV><FONT face =Georgia size=3><STRONG><BLOCKQUOTE><BLOCKQUOTE>INFO</BLOCKQUOTE></BLOCKQUOTE></STRONG></FONT>" & vbCr & _
			  "<DIV><FONT face =Georgia size=3><STRONG><BLOCKQUOTE><BLOCKQUOTE>INFO</BLOCKQUOTE></BLOCKQUOTE></STRONG></FONT>" & vbCr & _
			  "</DIV></BODY></HTML>"
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "MONSERVEUR"
		.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		.Configuration.Fields.Item ("urn:schemas:mailheader:disposition-notification-to")= _
						"MONADRESSE@.fr"
		.Configuration.Fields.Item ("urn:schemas:mailheader:return-receipt-to")= _
						"MONADRESSE@.fr"
		.Configuration.Fields.Update

		On Error Resume Next
		.Send
		If Err Then MsgBox "Le message n'a pas pu être envoyé"
		On Error GoTo 0
	End With

end sub

Je me suis servis d'un script deja disponible et d'autre trouvés sur les différentes discussions .
L'envoi de mail fonctionne très bien seul hic : l'accusé de réception .
Malgré que le script ne me retourne aucune erreur je ne recois aucun accusé ( et pourtant selon certain forum apparement cela fonctionnait).
Donc si une âme charitable pouvait se pencher sur mon problème cela serait super sympa ( j'ai peut être fait une erreur bête étant un débutant du vbs ...

)
Je vous remercie d'avance si vous avez besoin de quoi que ce soit en plus en terme d'info je serai a votre disposition

**omen999** · 11/05/2014, 18h57

bonjour,
c'est en anglais basique : http://gallery.technet.microsoft.com...4-9310396f99ef

**jeanfly** · 12/05/2014, 13h20

Thanks Guy !!

niquel en rajoutant la méthode ci dessous cela fontionne je te remercie !!
Const CDO_SUCCESS = 4 ' sends delivery receipt if succesfull
Const CDO_FAIL = 2 ' sends delivery receipt if fails
Const CDO_DELAY = 8 ' sends delivery receipt if delayed
Const CDO_SUCCESS_FAIL_DELAY = 14 ' sends delivery receipt always
....
.DSNOptions=CDO_SUCCESS_FAIL_DELAY

Accusé de reception lors d'un envoi de mail par script VBS

VBScript

Discussions similaires

Partager

Partager