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