Tengo este código con la finalidad de coger el asunto y el body de un formulario y enviarlo masivamente a todos los emails de mi base de datos, pero la cuestión es que no me va ni a tiros.
Venga echarmen una mano.
sendmail.html
Código:
<HTML>
<BODY BGCOLOR="#FFFFFF">
<center>
<FORM METHOD="POST" ACTION="sendmail.asp">
<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
<TD> </TD>
<TD> </TD>
</TR>
<TR>
<TD>Asunto:</TD>
<TD><INPUT TYPE="TEXT" NAME="Subject" size="68"></TD>
</TR>
<TR>
<TD>Mensaje:</TD>
<TD><TEXTAREA NAME="TextBody" rows="8" cols="51"></TEXTAREA></TD>
</TR>
<TR>
<TD COLSPAN=2>
<p align="center"><INPUT TYPE="submit" NAME="Send" VALUE="Enviar Email">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
Sendmail.asp
Código:
<%
Subject = Request.Form("Subject")
TextBody = Request.Form("TextBody")
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/mdb-database/registros.mdb")
Set RS = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM registros"
oRS.Open sql, oConn
do while not oRS.eof
Set Mail = CreateObject("CDO.Message")
Mail.From = "[email protected]" ' From address
Mail.to = trim(oRS("Email"))
Mail.Subject = Request("Subject")
Mail.TextBody = Request("TextBody")
Mail.Send ' send message
oRS.movenext
loop
oConn.Close
Set oConn= Nothing
%>