Estoy usando Aspmail para mandar un mail a una lista de usuarios que esta hecha en Access. En la pagina puedo escribir el tema del mail y el contenido. Verifique el smtp, la base de datos y tambien el mismo codigo que viene de ejemplo en el Aspmail y se que eso esta bien, el error que me esta tirando es
"Persits.MailSender.4 error '800a0006'
501 Syntax error in parameters
/usuarios/mail.asp, line 47"
donde esta la linea de codigo "Mail.Send".
Mas abajo esta el codigo fuente del asp de esta pagina.
Por favor si alguien puede ayudarme se lo agradecería muchisimo.
Gracias!!!
Erika.
<%
' change to address of your own SMTP server
strHost = "mail.erika.com"
%>
<HEAD>
<TITLE>Envio de E-Mail a lista de usuarios</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" background="../Untitled-1.gif">
<table width="98%" border="0">
<tr>
<td width="37%"> </td>
<td width="30%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033CC"><b><font size="4"><u>Envio
de E-Mail</u></font></b></font></td>
<td width="33%">
<div align="right"><font color="#0033FF"><b><font face="Verdana, Arial, Helvetica, sans-serif"><a href="login.asp">Volver
a lista de clientes</a></font></b></font></div>
</td>
</tr>
</table>
<H4 align="center">
<%
strDbPath = Server.MapPath(".") & "\usuarios.mdb"
ConnectStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strDbPath
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "usuarios", ConnectStr, 2, 3
If Request("Send") <> "" Then
' send email to all users
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "[email protected]"
Mail.FromName = "Realinkjet.com"
Mail.Subject = Request("Subject")
Mail.IsHTML = True
strHTML = strHTML & "<html><head></head><body bgcolor=""#00CCFF"" text=""#000000"">"
strHTML = strHTML & "<table width=""87%"" border=""0"" align=""center""><tr><td>"
strHTML = strHTML & "<div align=""center""><a href=""www.realinkjet.com"">"
strHTML = strHTML & "<img src=""http://www.realinkjet.com/cabecera.swf"" width=""780"" height=""90"" border=""0"">"
strHTML = strHTML & "<tr><td><div align=""center""></div></td></tr><tr><td>"
strHTML = strHTML & "<div align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" color=""#003399""><b>" & Request("Body")
strHTML = strHTML & "</b></font></div></td></tr></table></body></html>"
Mail.Body = strHTML
While not rs.EOF
Mail.AddBcc rs("E-mail"), rs("Nombre")
rs.MoveNext
Wend
Mail.Send
Response.Write "Success!"
Else
Response.Write "<B>E-mails contenidos en la base de datos:</B><P>"
While not rs.EOF
Response.Write rs("Nombre") & "<BR>"
rs.MoveNext
Wend
End If
%>
</h4>
<FORM ACTION="mail.asp">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033CC"><b>Tema
del mensaje: </b> </font>
<INPUT TYPE=TEXT NAME="Subject">
<BR>
<TEXTAREA NAME="Body" rows="10" cols="50"></TEXTAREA>
<BR>
<INPUT TYPE=SUBMIT NAME="Send" VALUE="Mandar mensaje a lista de correo">
</div>
</FORM>
</BODY>
</HTML>
