aspmail

HORUSNET · #1 (**permalink**) 05/04/2002, 05:49

hola a todos, a ver si alguien me puede ayudar.

Tengo puesto este código:

<html>

<body>
<%

Set Mail = Server.CreateObject("Persits.MailSender" )
Mail.Host = "smtp.servidor.com"
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto
Mail.From = "[email protected]"

Mail.AddAddress "[email protected]", "Destinos"
Mail.AddCC "[email protected]" ' El nombre es opcional
Mail.Subject = "Mensaje de Ventas"
Mail.Body = "<HTML>><BODY BGCOLOR=#0000FF>Estimado Sr:....</BODY></HTML>"
Mail.IsHTML = True
On Error Resume Next
Mail.Send ' ó Mail.SendToQueue
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
else
respose.write "ok"
End If

%>

</body>

</html>

Me da el siguente error An error occurred: 553 ... this site does not relay
Alguien me puede decir q hago mal o q es ese error.
Gracias

Torus · #2 (**permalink**) 10/04/2002, 09:18

prueba con esto

<%
Set Mail = Server.CreateObject("Persits.MailSender" )
Mail.Host = "mail.tuservidor de dominio.com"
Mail.Port = 25

Mail.From = "correo@propio"
Mail.FromName = request.form("remitente")
Mail.AddReplyTo request.form("email_remitente")
Mail.AddAddress request.form("email_destinatario")
Mail.Subject = titulo
Mail.IsHTML = True

mensaje="<html><head>"
mensaje=mensaje & "<title>Torus help</title>"&vbcrlf
mensaje=mensaje & " </head><body><div align=center>"&vbcrlf
mensaje=mensaje & " </center></body></html>"&vbcrlf

Mail.Body = mensaje

On Error Resume Next
Mail.Send ' ó Mail.SendToQueue
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If

%>
Como puedes ver mensaje=mensaje....... es el que contiene el html y esta concatenado por &" y cierra &vbcrlf para cada linea
Espero serte de utilidad
Saludos
Torus

Hay tanto que aprender y tan poco tiempo