Bonjour,

J'utilise CDO depuis longtemps pour envoyer des mails.

Voila un exemple de code :

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
 
<%
Set oMail = Server.CreateObject("CDO.Message")
Set oMailConfig = Server.CreateObject ("CDO.Configuration")
 
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ServeurExchange"
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 = "EXP"
oMail.From = "EXP - Essai"
oMail.Fields.Update()
oMail.Subject = "Sujet du message."
oMail.To = "Prenom.Nom@MaSociete.fr"
 
Body = "Message"
 
oMail.TextBody = Body
oMail.Send
 
Set oMailConfiguration = Nothing
Set oMailConfig = Nothing
Set oMail = Nothing
%>
Je n'avais besoin, jusqu'à maintenant, de communiquer qu'à l'intérieur de notre Intranet.

Je dois désormais envoyer des mails à des destinataires extérieurs à notre société.

Quand je modifie la propriété de oMail.To = "Jean.Dupont@Yahoo.fr", j'ai un message d'erreur au moment du Send.

Quelqu'un(e) pourrait me filer un coup de main ?

Merci.