Discussion :

[surfeur2]

Bonjour,

j'essaye d'envoyer un e-mail à l'aide de jmail et du serveur smtp : gmail mais cela ne fonctionne pas, voyez-vous une erreur sur le code ci-dessous?:

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
<%
 
Dim ObjSendMail
Set ObjSendMail = Server.CreateOBject("JMail.Message")
 
smtp_server_address = "smtp.gmail.com:465" 
 
 ObjSendMail.ContentType = "text/html"
 
	 ObjSendMail.From = "sigonaf2@gmail.com"
	 ObjSendMail.FromName = "...."
	 ObjSendMail.AddRecipient "probor2@hotmail.com"
	 ObjSendMail.Subject = "Sujet" 
 
 
	ObjSendMail.Body = "Bonjour"
 
	 'If Your email server requires SMTP Authentication uncomment and use the values below
 
	 ObjSendMail.MailServerUserName = "sigonaf2@gmail.com"
	 ObjSendMail.MailServerPassword = "monMotdePasse" ' pour l'exemple du forum je n'ai pas mis le vrai valeur ici
 
 
	If not ObjSendMail.Send(smtp_server_address) then
		Response.write "<pre>" & msg.log & "</pre>"
	End If
 
	Set ObjSendMail = Nothing
 
 
%>

[roro06]

Bonjour

Et msg.log, ça donne quoi?

[surfeur2]

j'ai un bug sur le serveur que je dois aussi réparer il ne me fourni pas pour l'instant les messages d'erreurs mais uniquement une erreur 500

[fredoche]

En vérifiant les logs IIS tu dois pouvoir récupérer le contenu de cette erreur 500.

500 est un code générique http pour signaler une erreur d’exécution coté serveur

[surfeur2]

log pour gmail_

2013-12-18 08:46:01 10.0.0.175 GET /Jmail/gmail.asp |-|ASP_0113|Délai_d'exécution_du_script_dépassé 80 - 46.127.250.105 Mozilla/5.0+(Windows+NT+5.1;+rv:25.0)+Gecko/20100101+Firefox/25.0 - 500 0 1236 615522

log pour hotmail:

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
Dim ObjSendMail
Set ObjSendMail = Server.CreateOBject("JMail.Message")
 
smtp_server_address = "smtp.live.com" 
 
 ObjSendMail.ContentType = "text/html"
 
	 ObjSendMail.From = "probor2@hotmail.com"
	 ObjSendMail.FromName = "...."
	 ObjSendMail.AddRecipient "probor2@hotmail.com"
	 ObjSendMail.Subject = "Sujet" 
 
 
	ObjSendMail.Body = "Bonjour"
 
	 'If Your email server requires SMTP Authentication uncomment and use the values below
	 ObjSendMail.MailServerUserName = "probor2@hotmail.com"
	 ObjSendMail.MailServerPassword = "MonMotdepasse"
 
 
	If not ObjSendMail.Send(smtp_server_address) then
		Response.write "<pre>" & msg.log & "</pre>"
	End If
 
	Set ObjSendMail = Nothing

2013-12-18 08:47:13 10.0.0.175 GET /Jmail/hotmail.asp |32|8000ffff|The_message_was_undeliverable._All_servers_failed_to_receive_the_message 80 - 46.127.250.105 Mozilla/5.0+(Windows+NT+5.1;+rv:25.0)+Gecko/20100101+Firefox/25.0 - 500 0 0 2698

[roro06]

Les ports 25 et 465 sont ouverts?

[surfeur2]

Oui j'ai ouvert les 2 ports dans le manager de qualit (firewall).

ps. Info sup de qualit:

Nous ne disposons pas de serveur SMTP rendu accessible publiquement.
Vous pouvez utiliser un serveur SMTP externe (Gandi, Google..).