No funciona, ne da este error:
CDO.Message.1 (0x80040213)
Error de transporte en la conexión al servidor.
Me gustaría encontrar algún programa gratuito. Por otra parte, configuré el SMTP de IIS en windows. Aparentemente funciona, pero no recibo los email que envío, es decir, no se para dónde se van, pero el Script me dice que funcionó.
**************
Pruébalo tu a ver si te funciona (Ojo: estoy usando CDO):
**************
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<title>Pagina nueva 1</title>
</head>
<body>
<%
SUB sendmail(fromWho, toWho, toWho2, Subject, Body )
Dim objCDO
Dim iConf
Dim Flds
Const cdoSendUsingPort = 2
Set objCDO = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.hotpop.com"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 60
.Update
End With
Set objCDO.Configuration = iConf
objCDO.From = fromWho
objCDO.To = toWho
objCDO.Bcc = toWho2
objCDO.Subject = Subject
'objCDO.TextBody = Body
objCDO.HTMLBody = Body
objCDO.Send
END SUB
fromWho = TRIM( Request.Form( "fromWho") )
toWho = TRIM( Request.Form( "toWho") )
'toWho2 = "[email protected]"
toWho2 = TRIM( Request.Form( "toWho2") )
Subject = TRIM( Request.Form( "Subject" ) )
Body = TRIM( Request.Form( "Body") )
If toWho <> "" THEN
sendMail fromWho, toWho, toWho2, Subject, Body
Response.redirect "Listo.html"
END IF
'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>
<HTML>
<HEAD><TITLE>Email Form</TITLE></HEAD>
<FORM METHOD="POST" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")% >">
<BR>TO:
<INPUT NAME="toWho" TYPE="text" SIZE=40>
<BR>Bcc: <INPUT NAME="toWho2" TYPE="text" SIZE=40>
<BR>FROM:
<INPUT NAME="fromWho" TYPE="text" SIZE=40>
<BR>SUBJECT:
<INPUT NAME="Subject" TYPE="text" SIZE=40>
<BR><TEXTAREA NAME="Body" COLS=65 ROWS=12></TEXTAREA>
<BR><INPUT TYPE="SUBMIT" VALUE="Send Mail">
</FORM>
</HTML>
</body>
</html>