Email perdu

**Prue** · 24/03/2006, 12h28

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 :

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

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
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

Et puis j'envoi le résultat du test dans un email de rapport.
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.