Bonjour � tous,
Voici mon code et l'erreur :
"Erreur d'ex�cution Microsoft VBScript error
'800a01b6'
Cet objet ne g�re pas cette propri�t� ou cette
m�thode: 'From' "
code :
<%
set obj=Server.createobject("ADODB.connection")
obj.open("*******")
set obj=Server.createobject("ADODB.connection")
obj.open("*******")
for i=1 to
request.form("sendEMail").count
chaine="select nom, prenom from email where email='" & request.form("sendEMail")(i) & "';"
set result=obj.Execute(chaine)
set nmail = CreateObject("CDONTS.Newmail")
nmail.From = "[EMAIL PROTECTED]"
nmail.To = Request.From("sendEMail")(i)
nmail.Subject = Request.form("subject")
nmail.BodyFormat = CdoBodyFormatText
sMailBody = "A l'attention de " & response.write(result.Fields.item(0)) & " " & response.write(result.Fields.item(1)) & vbNewLine & vbNewLine
sMailBody = sMailBody & Request.form("messageText")
nmail.Body = sMailBody
nmail.Send
set nmail = Nothing
next
chaine="select nom, prenom from email where email='" & request.form("sendEMail")(i) & "';"
set result=obj.Execute(chaine)
set nmail = CreateObject("CDONTS.Newmail")
nmail.From = "[EMAIL PROTECTED]"
nmail.To = Request.From("sendEMail")(i)
nmail.Subject = Request.form("subject")
nmail.BodyFormat = CdoBodyFormatText
sMailBody = "A l'attention de " & response.write(result.Fields.item(0)) & " " & response.write(result.Fields.item(1)) & vbNewLine & vbNewLine
sMailBody = sMailBody & Request.form("messageText")
nmail.Body = sMailBody
nmail.Send
set nmail = Nothing
next
obj.close
%>
%>
Est ce que quelqu'un pourrai m'aider � envoyer des
emails avec ASP ????
Merci
