Hola, les escribo porque tengo un problema al realizar el envió de un mail me tira un error en una linea donde esta:
objNewMail1.Send("smtp.iplannetworks.net")
No se cual sera el problema, y no puedo encontrarlo tampoco, alguien podrá ayudarme??
Desde ya millones de gracias!!!
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Envio Mail</title>
</head>
<body>
<%
Nombre = request.form("Nombre")
Apellido = request.form("Apellido")
mail = request.form("mail")
Subject2= "Gracias por su mensaje - Detect.com.ar"
Archivo = request.form("archivo")
Subject = request.form("subject")
para = request.form("to")
MSG = "<!DOCTYPE HTML PUBLIC -//IETF//DTD HTML//EN>" & vbCrLf & "<html>"
MSG = MSG & "<body><p>Mensajes del sitio web</p>"
MSG = MSG & "<table border=0 cellspacing=1 cellpadding=1 rules=none align='center'>"
MSG = MSG & "<tr><td><b>Nombre: </b></td><td>"&Nombre&"</td></tr>"
MSG = MSG & "<tr><td><b>Apellido: </b></td><td>"&Apellido&"</td></tr>"
MSG = MSG & "<tr><td><b>Dni: </b></td><td>"&Dni&"</td></tr>"
MSG = MSG & "<tr><td><b>Genero: </b></td><td>"&Genero&"</td></tr>"
MSG = MSG & "<tr><td><b>Fecha de Nacimiento: </b></td><td>"&fechan&"</td></tr>"
MSG = MSG & "<tr><td><b>Calle: </b></td><td>"&Calle&"</td></tr>"
MSG = MSG & "<tr><td><b>Numero Calle: </b></td><td>"&numerocalle&"</td></tr>"
MSG = MSG & "<tr><td><b>Piso: </b></td><td>"&piso&"</td></tr>"
MSG = MSG & "<tr><td><b>Departamento: </b></td><td>"&dpto&"</td></tr>"
MSG = MSG & "<tr><td><b>Codigo Postal: </b></td><td>"&codigopostal&"</td></tr>"
MSG = MSG & "<tr><td><b>Localidad: </b></td><td>"&localidad&"</td></tr>"
MSG = MSG & "<tr><td><b>Telefono Particular (codigo de area): </b></td><td>"&telparticular&"</td></tr>"
MSG = MSG & "<tr><td><b>Numero Particular: </b></td><td>"&numparticular&"</td></tr>"
MSG = MSG & "<tr><td><b>Tel Laboral (cod area): </b></td><td>"&tellaboral&"</td></tr>"
MSG = MSG & "<tr><td><b>Numero Laboral: </b></td><td>"&numlaboral&"</td></tr>"
MSG = MSG & "<tr><td><b>Tel Celular (cod area): </b></td><td>"&telcelular&"</td></tr>"
MSG = MSG & "<tr><td><b>Numero Celular: </b></td><td>"&numcelular&"</td></tr>"
MSG = MSG & "<tr><td><b>Mail: </b></td><td>"&mail&"</td></tr>"
MSG = MSG & "<tr><td><b>Horario: </b></td><td>"&Horario&"</td></tr>"
MSG = MSG & "</table>"
set objNewMail1 = Server.CreateObject("jmail.Message")
objNewMail1.Logging = true
objNewMail1.Silent = false
objNewMail1.addrecipient "[email protected]"
objNewMail1.addrecipient "[email protected]"
objNewMail1.From = "[email protected]"
objNewMail1.Subject = Subject
objNewMaIL1.ContentType = "text/html"
objNewMail1.Body = MSG
objNewMail1.MailServerUserName = "[email protected]"
objNewMail1.MailServerPassword = "lamerco*"
objNewMail1.Send("smtp.iplannetworks.net")
set objNewMail1=nothing
MSG2 = "<!DOCTYPE HTML PUBLIC -//IETF//DTD HTML//EN>" & vbCrLf & "<html>"
MSG2 = MSG2 & "<body>"
MSG2 = MSG2 & "<table width='740' border='0' cellspacing='0' cellpadding='0' align='center'>"
MSG2 = MSG2 & "<tr><td valign='top'><img src='http://www.de.com.ar/imagenes2/logo.gif'></td></tr>"
MSG2 = MSG2 & "<tr><td height='20'></td></tr>"
MSG2 = MSG2 & "<tr><td>"
MSG2 = MSG2 & "<p align='center'><font face='Arial, Helvetica, sans-serif' color='#666666'>Su mensaje se ha enviado en forma exitosa.</font></p>"
MSG2 = MSG2 & "<p align='center'><font face='Arial, Helvetica, sans-serif' color='#666666'>Muchas gracias por contactarnos.</font></p>"
MSG2 = MSG2 & "<p align='center'><font face='Arial, Helvetica, sans-serif' color='#666666'>A la brevedad responderemos su consulta.</font></p>"
MSG2 = MSG2 & "</td></tr>"
MSG2 = MSG2 & "<tr><td height='20'></td></tr>"
MSG2 = MSG2 & "</table></body></html>"
set objNewMail1 = Server.CreateObject("jmail.Message")
objNewMail1.Logging = true
objNewMail1.Silent = false
objNewMail1.addrecipient EMail
objNewMail1.From = "[email protected]"
objNewMail1.Subject = Subject2
objNewMaIL1.ContentType = "text/html"
objNewMail1.Body = MSG2
objNewMail1.MailServerUserName = "[email protected]"
objNewMail1.MailServerPassword = "lamerco*"
objNewMail1.Send("smtp.iplannetworks.net")
set objNewMail1=nothing
response.redirect archivo %>
</body>
</html>
