Peut-etre essayer le code qui suit, qui prend compte direct du Server SMTP
local.
oMail = CreateObject("cdo.Message")
iConf = CreateObject("cdo.Configuration")
Flds = iConf.Fields
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "http://127.0.0.1"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 10
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
iConf.Fields.Update
oMail.Configuration = iConf
oMail.To = "***@mcrgsoftware.com"
oMail.From = "***@suntelecom.net"
oMail.Subject = "Subject: testing"
oMail.TextBody = "Body: just some message"
oMail.Send
Post by wafa moualhiJe veux envoyer une facture par mail avec CDO, je mets mon adresse de
messagerie et j'envoi, il me sort ce message;
"La valeur de configuration "SEndUsing est non valide"
merci de m'aider c très urgent