Le code d'envoi d'email ne fonctionne malheureusement plus [Résolu]

[beegees]

Bonjour tout le monde,

Je suis occupé à créer une application.

Je demande à l'utilisateur d'entrer son code (qu'il connaît).

Par rapport à ce code, je filtre dans la table email et j'envoi un email au visiteur en question.

ça fonctionnait très bien jusqu'à il y'a 10 minutes mais maintenant plus rien ne vient .

Voici mon code, sauriez-vous y regarder svp ?

Merci d'avance.

beegees

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
38
39
40
41
<%
dim matricule
session("matricule") = request.form("txtMatriculePourEmail")
 
MatriculeEmail = Session("matricule")
'Code de connexion à la base de données :
dim rst
dim cnn
set cnn = server.CreateObject("ADODB.CONNECTION")
set rst= Server.CreateObject("ADODB.Recordset")
cnn.open "RN"
'rst.cursorlocation = aduseclient
rst.cachesize = 5
mysql = "select * FROM  [annee] WHERE [Matricule] = '" & MatriculeEmail & "' "
dim Destinataire
dim Login
dim mdp
 
rst.open mysql, "RN"
Destinataire = rst("Email")
Login = rst("Login")
mdp = rst("Mdp")
 
 
response.Write("ici " & mysql)
 
response.Write("l'email est " & Destinataire)
 
response.Write(matricule)
 
 
'////////////////Gestion de l'email/////////////////////////////////////////////////////////// 
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Relevé de notes : voici vos identifiants "
myMail.From="mail@gmail.com"
myMail.To= Destinataire
myMail.TextBody="Voici vos identifiants : Login " & Login & " et votre mot de passe " & mdp
myMail.Send
set myMail=nothing
 
%>

Je voudrais savoir si CDO à des limites car une fois ça fonctionne, une fois ça fonctionne plus.

[vva]

cdo n'est plus à utiliser car les mise à jou rwindows ont tendance à le supprimer par défaut il n'est plus dasn windows. quand nous avon sré installé les serveurs il a fallu réinstaller le composant

à+

[beegees]

Envoyé par vva

cdo n'est plus à utiliser car les mise à jou rwindows ont tendance à le supprimer par défaut il n'est plus dasn windows. quand nous avon sré installé les serveurs il a fallu réinstaller le composant

à+

Tu as autre chose à me proposer ?

beegees

[beegees]

Moi je me demande si le problème ne viendrait pas plutôt de IIS car :

Action: failed
Status: 4.0.0
Diagnostic-Code: smtp;452 Too many recipients received this hour

Si quelqu'un s'y connait, je suis preneur.

Merci encore.

beegees

[pc75]

Salut,

Le code que tu as mis dans ton premier post est complet ?

Tu n'utilises pas de serveur SMTP ?

[beegees]

Salut PC75,

Merci pour ta réponse.

Si j'utilise le serveur IIS comme serveur SMTP.

Je reviens de faire un test, j'ai envoyé 15 mails, il stoppe juste à 10.

Voici le reste de mon code mais je pense que s'est soit mon serveur IIS soit le serveur de mon boulot.

encore merci.

beegees

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<%
dim matricule
session("matricule") = request.form("txtMatriculePourEmail")
 
MatriculeEmail = Session("matricule")
'Code de connexion à la base de données :
dim rst
dim cnn
set cnn = server.CreateObject("ADODB.CONNECTION")
set rst= Server.CreateObject("ADODB.Recordset")
cnn.open "RN"
'rst.cursorlocation = aduseclient
rst.cachesize = 5
mysql = "select * FROM  [annee] WHERE [Matricule] = '" & MatriculeEmail & "' "
dim Destinataire
dim Login
dim mdp
 
rst.open mysql, "RN"
Destinataire = rst("Email")
Login = rst("Login")
mdp = rst("Mdp")

[pc75]

Re,

A tout hasard, voila un bout de code que j'utilise et avec lequel je n'ai jamais eu de problème :

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
38
39
 
..........
	Set oMail = Server.CreateObject("CDO.Message")
	Set oMailConfig = Server.CreateObject ("CDO.Configuration")
 
	oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = NomDuServeurSMTP
	oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
	oMailConfig.Fields.Update
	Set oMail.Configuration = oMailConfig
 
	oMail.Sender = Replace(Str_Sender, " ", ".")
	oMail.From = Str_Sender
	oMail.Fields.Update()
	oMail.Subject = "Sujet du mail."
	oMail.To = Str_Destinataire
 
	Body = ""
	Body = Body & "<html>"
	Body = Body & "<body link=red alink=red vlink=red >"
 
	Body = Body & "<font style=""BACKGROUND-COLOR: navy"" face=arial size=3 color=Yellow>"
	Body = Body & "<b>"
	Body = Body & " BlaBla"
	Body = Body & "</b>"
	Body = Body & "</font>"
 
	Body = Body & "</body>"
	Body = Body & "</html>"
 
	oMail.HTMLBody = Body
	oMail.Send
 
	Set oMailConfiguration = Nothing
	Set oMailConfig = Nothing
	Set oMail = Nothing
 
.....

[beegees]

Re,

Et bien je viens de trouver en fait.

S'étais le serveur SMTP vers lequel j'envoyais les messages qui bloquais dès qu'on arrivait à 10.

J'ai donc dû changer le nom de mon serveur smtp pour contourner ce problème et maintenant, tout fonctionne à merveille

Merci pour ta disponibilité PC75.

@ Très bientôt et bon WE.

beegees

Envoyé par pc75

Re,

A tout hasard, voila un bout de code que j'utilise et avec lequel je n'ai jamais eu de problème :

Code :