envio de Email

[maestro]

Mensaje Original por alfil_negro
<%
do while not rs.eof
email=rs(email")

--------------------- INICIO ASPMAIL---------------------------
Set Mailer = Server.CreateObject (“SMTPsvg.Mailer”)
Mailer.FromName = “Patito, S.A. de C.V.”
Mailer.FromAddress = [email protected]
Mailer.Subject = “Tu orden del producto XXXX”
Mailer.BodyText = “Tu orden ha sido procesada.”
Mailer.RemoteHost = “mailserver”
Mailer.AddRecipient email

If Mailer.SendMail then
‘ El mensaje fue enviado exitosamente
response.write (“Tu mensaje fue enviado”)

else
‘ Falla en el envío del mensaje
response.write (“Tu mensaje NO fue enviado”)
response.write (“ El error fue: & Mailer.Response)

end if
---------------------fin ASPMAIL---------------------------

rs.movenext
loop
rs.close
%>