OVH Cloud OVH Cloud

[URGENT] Envoie de mail Exchange via ASP

2 réponses
Avatar
Te-Deum
Bonjour,

J'essaye d'envoyer un mail via un script ASP grace au script de microsoft
que j'ai trouvé à cette adresse :
http://support.microsoft.com/default.aspx?scid=kb;en-us;248687&Product=excha
nge
Voici le code :
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
' 3 means that you are asking mail to be sent using Exchange Server.

Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 3
Flds("http://schemas.microsoft.com/cdo/configuration/user") =
"Administrateur"
Flds("http://schemas.microsoft.com/cdo/configuration/password") = "XXXXXX"
Flds.Update

Set iMsg.Configuration = iConf
iMsg.To = Request.Form.Item("Text1")
iMsg.From = "MonExpediteur@MonDomaine.com"
iMsg.Subject = Request.Form.Item("Text3")
iMsg.TextBody = Request.Form.Item("TextArea1")
iMsg.Send

J'ai toujours cette erreur :
CDO.Message.1 error '80070005'
Accès refusé.
/acvachat/SendMail.asp, line 24

Avez-vous une explication ?

2 réponses

Avatar
Stéf
Dans le répertoire ou il a sendmail.asp, vérifie que tu as bien IUSR_TON_SERVEUR comme autorisation sinon ça marche pas
Fait un test : autorise tout le monde et dis nous si ça à marché !
Avatar
Bonjour
voila pour que vous puissiez utiliser la messagerie de
exchange via ASP vous deveriez installer une DLL qui se
nomme aspSmartMail.dll, vous pouvez la télécharger du net
faites une recheche sur le net, et vous trouveriez meme le
mode de son installation
bon courage
-----Message d'origine-----
Bonjour,

J'essaye d'envoyer un mail via un script ASP grace au
script de microsoft

que j'ai trouvé à cette adresse :
http://support.microsoft.com/default.aspx?scid=kb;en-
us;248687&Product=excha

nge
Voici le code :
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
' 3 means that you are asking mail to be sent using
Exchange Server.


Flds
("http://schemas.microsoft.com/cdo/configuration/sendusing"

) = 3
Flds
("http://schemas.microsoft.com/cdo/configuration/user")

=
"Administrateur"
Flds
("http://schemas.microsoft.com/cdo/configuration/password")

= "XXXXXX"
Flds.Update

Set iMsg.Configuration = iConf
iMsg.To = Request.Form.Item("Text1")
iMsg.From = ""
iMsg.Subject = Request.Form.Item("Text3")
iMsg.TextBody = Request.Form.Item("TextArea1")
iMsg.Send

J'ai toujours cette erreur :
CDO.Message.1 error '80070005'
Accès refusé.
/acvachat/SendMail.asp, line 24

Avez-vous une explication ?


.