Enviar E-Mail = Error 550...

[foxleonardo]

El código debería ser solo esto:

de="[email protected]"
para1="[email protected]"
para2="[email protected]"
para3="[email protected]"
asunto="Coloca aqui el asunto"
fecha=date
nombre=request.form("nombre")
telefono=request.form("telefonos")

HTML = HTML & "algun texto descriptivo"&"<br>"
HTML = HTML & "El nombre del funcionario es : <b>"& nombre &"</b><br>"
HTML = HTML & "Teléfonos : <b>"& telefono &"</b><br>"
HTML = HTML & "Este correo ha sido generado automáticamente, no response este mail..."&"<br>"

copias=para1&";"&para2&";"&para3

Set myMail = Server.CreateObject( "CDONTS.Newmail" )
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.From = de
myMail.To = copias
myMail.Subject = Asunto
myMail.Body = HTML
myMail.Send
Set myMail = Nothing

esto deberia ser suficiente para que te funcione, si el error persiste, verifica que tengas permiso en el servidor para enviar SMTP y que el SMTP del servidor este activo.

Atte.
Foxleonardo
[email protected]