Problemas en el envio de mail

[anas]

Hola:
Tengo el siguiente problema. Tengo una pagina ASP donde un usuario, ingresa sus datos y me manda un mail a mi. Pero cuando yo además quiero enviarle un mail a él para confirmar su registración me tira el siguiente error
Persits.MailSender.4 error '800a0006'
Yo tengo lo siguiente:

Const cServidorSMTP = "mail.miservidor.com"
Const cCorreoPersonal = "[email protected]"
Const cNombreCorreo = "Prueba"

Function EnviarCorreo(psDe, psNombreDe, psPara, psNombrePara, psTema, psCuerpo)
Dim oMail

Set oMail = Server.CreateObject("Persits.MailSender")
oMail.Host = cServidorSMTP
oMail.From = psDe
oMail.FromName = psNombreDe
oMail.AddAddress psPara, psNombrePara
oMail.Subject = psTema
oMail.Body = psCuerpo
oMail.Send
If Err.Number <> 0 Then
EnviarCorreo = Err.Description
Else
EnviarCorreo = ""
End If

Set oMail = Nothing
End Function

Luego llamo a la función de la siguiente forma:

sMail1 = EnviarCorreo(sCorreoElectronico, sDe, cCorreoPersonal, cNombreCorreo, sTema1, sCuerpo & sDetalle)
sMail2 = EnviarCorreo(cCorreoPersonal, cNombreCorreo, sCorreoElectronico, sDe, sTema2, sCuerpo)

Alguien tiene idea porque esta fallando con el segundo envío de datos? y cómo solucionarlo?
Muchas gracias!
Saludos

[Myakire]

Veamos que dice algo de la experiencia pasada:

http://classicasp.aspfaq.com/general...00f-range.html
http://www.webwizguide.com/bbs/forum...?TID=6266&PN=2
http://www.forosdelweb.com/s/msg319909.html

Saludos

[fcastro]

Hola,

Comentas que falla el segundo envío, eso posiblemente se deba a que estás enviando a la función una variable vacía y falla. Comprueba los nombres de todas las variables y haz un respose.write de sus valores para asegurarte que no pase eso...

Un saludo.

[allhen]

<%
varF = request.form("quienloenvia")

Dim objEmail
Set objEmail = Server.CreateObject("Persits.MailSender")
objEmail.Username = "[email protected]"
objEmail.Password = "el password va aqui"
objEmail.Host = "smtpORmail.tudominio.com"
objEmail.From = request.form("quienloenvia")
objEmail.FromName = request.form("nombreDeQuienLoEnvia")
objEmail.AddAddress request.form("destinatario")
objEmail.Subject = ""&varSn&" aqui el subject ...al inicio recoge una variable"
ObjEmail.IsHTML = True
objEmail.Body = "Mensaje:<br> "&varMMS&" <br><br><img src=""http://tudominio.com/fotocualquiera.jpg"" border=""0"">"
objEmail.Send
Set objEmail = Nothing
response.write = "Mail enviado a : """&varF&""" <br> Puedes seguir enviando...."
%>


solo asegurate q dentro del body... si usas comilla doble...agreagale una mas por c/u excepto al inicio y al final...

si tiene dudas.. please contact me [email protected]