Bonjour à tous !![]()
Voilà j'ai un petit soucis (bah oui sinon je posterai pas un nouveau sujet ici lol)
Je fais un envoi de mail tel que suit :
Puis un test pour voir si l'envoi s'est bien passé comme ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 set mailMorning = server.CreateObject ("CDONTS.newmail") mailMorning.from = emetteur mailMorning.to = cstr(oRsetAbonne("email")) mailMorning.subject = cstr(sujet_email) mailMorning.body = corps mailMorning.BodyFormat = 0 mailMorning.MailFormat = 0 mailMorning.importance = 1 mailMorning.send
Et puis j'envoi le résultat du test dans un email de rapport.
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 if err <> 0 then for z=1 to 3 ' on essaie trois fois err=0 mailMorning.send if err=0 then z=3 end if next if err <> 0 then bodymail = cstr(bodymail) + "NON ENVOYE / cause : err : " + cstr(err) + " - " + cstr(err.Description) + " / " + cstr(oRsetAbonne.Fields ("nom_abonne")) + " " + cstr(oRsetAbonne.Fields ("prenom_abonne")) + " " + cstr(oRsetAbonne.Fields ("email")) + "<br>" + vbCrlf err=0 k=k+1 else bodymail = cstr(bodymail) + cstr(oRsetAbonne.Fields("nom_abonne")) + " " + cstr(oRsetAbonne.Fields ("prenom_abonne")) + " " + cstr(oRsetAbonne.Fields ("email")) + "<br>" + vbcrlf j=j+1 end if else bodymail = cstr(bodymail) + cstr(oRsetAbonne.Fields ("nom_abonne")) + " " + cstr(oRsetAbonne.Fields("prenom_abonne")) + " " + cstr(oRsetAbonne.Fields ("email")) + "<br>" + vbcrlf j=j+1 end if
Je reçois bien le rapport qui me dit que l'envoi s'est bien passé mais je n'arrive pas à recevoir le mail principal. Je ne sais même pas s'il est envoyer même si d'après err c'est le cas.
Si quelqu'un peut m'aider à retrouver mon mail perdu, merci d'avance.
Partager