Accusé de reception lors d'un envoi de mail par script VBS
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:
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 ... :oops:)
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 ;)
