Forums Últimos mensajes - Powered by IBM
 

problema con aspmail

29/03/2006 - 22:43 por jaime | Informe spam
hola foreros, tengo un problemon con el aspmail. ya lo instale y cuando
llamo a la pagina enviamail.asp me sale el siguiente error:

"Sorry, there was an error and your email was not sent.Software caused
connect abort. "

el codigo que uso es el siguiente:
<%
Dim strEmail, strName, strComments, Mail
strEmail = "nombre@hotmail.com"
strName = "jaime"
strComments = "prueba de envio" 'request.form("Comments")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.domicion.com"
Mail.From = strEmail
Mail.AddAddress "micorreo@gmail.com"
Mail.Subject = "prueba de envio"
Mail.Body = "Email: " & strEmail & vbCrLf & "Name: " & strName & vbCrLf
& "Comments: " & vbCrLf & strComments
On Error Resume Next
Mail.Send
Set Mail = Nothing
IF Err <> 0 THEN
Response.Write "Sorry, there was an error and your email was not sent."
& Err.Description
END IF
%>

que puede estar pasando para que no funcione, que debo de hacer para
solucionarlo. espero su respuesta. de antemano gracias.
 

Leer las respuestas

#1 urko binarya
03/04/2006 - 13:11 | Informe spam
intenta mandar un email con una cuenta de domicion.com
strEmail = ""
los servidores de envio pueden estar verificando si la cuenta desde la que
se envia
existe en su dominio, y al utilizar una cuenta de hotmail no funciona.

saludos
urko
pd: Cuanto tiempo sin postear en la lista

"jaime" escribió en el mensaje
news:
hola foreros, tengo un problemon con el aspmail. ya lo instale y cuando
llamo a la pagina enviamail.asp me sale el siguiente error:

"Sorry, there was an error and your email was not sent.Software caused
connect abort. "

el codigo que uso es el siguiente:
<%
Dim strEmail, strName, strComments, Mail
strEmail = ""
strName = "jaime"
strComments = "prueba de envio" 'request.form("Comments")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.domicion.com"
Mail.From = strEmail
Mail.AddAddress ""
Mail.Subject = "prueba de envio"
Mail.Body = "Email: " & strEmail & vbCrLf & "Name: " & strName & vbCrLf
& "Comments: " & vbCrLf & strComments
On Error Resume Next
Mail.Send
Set Mail = Nothing
IF Err <> 0 THEN
Response.Write "Sorry, there was an error and your email was not sent."
& Err.Description
END IF
%>

que puede estar pasando para que no funcione, que debo de hacer para
solucionarlo. espero su respuesta. de antemano gracias.

Preguntas similares