Duda con ASPEmail

HPNeo · #1 (**permalink**) 11/02/2005, 16:49

Hola, tengo un problema con el aspemail: quisiera mandar mails, y los destinatarios estan en una base de datos, para mandarlos a todos use este script:

Código:

 
<%
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("databases/emails.mdb")
sql = "SELECT * FROM Alumnos"
Set oRS = Server.CreateObject ("ADODB.RecordSet")
oRS.Open sql, oConn
' change to address of your own SMTP server
strHost = "mail.hotmail.com"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
   ' enter valid SMTP host
   Mail.Host = strHost 
   Mail.From = Request("From") ' From address
   Mail.FromName = Request("FromName") ' optional
 do while not oRS.eof
   Mail.AddAddress oRS.Fields("Email")
   ' message subject
   Mail.Subject = Request("Subject")
   ' message body
   Mail.Body = Request("Body")
   strErr = ""
   bSuccess = False
 rs.movenext
		loop
On Error Resume Next ' catch errors
   Mail.Send ' send message
   If Err <> 0 Then ' error occurred
	  strErr = Err.Description
   else
	  bSuccess = True
   End If	  
End If
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<% If strErr <> "" Then %>
<h3>Error occurred: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
Mensajes enviados
<% End If %>
<FORM METHOD="POST" ACTION="mail.asp">
<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
   <TD>Host (change as necessary in script):</TD>
   <TD><B><% = strHost %></B></TD>
</TR>
<TR>
   <TD>From (enter sender's address):</TD>
   <TD><INPUT TYPE="TEXT" NAME="From"></TD>
</TR>
<TR>
   <TD>FromName (optional, enter sender's name):</TD>
   <TD><INPUT TYPE="TEXT" NAME="FromName"></TD>
</TR>
<TR>
   <TD>Subject:</TD>
   <TD><INPUT TYPE="TEXT" NAME="Subject"></TD>
</TR>
<TR>
   <TD>Body:</TD>
   <TD><TEXTAREA NAME="Body"></TEXTAREA></TD>
</TR>
<TR>
   <TD COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="Send Message">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>

Ojala puedan ayudarme

Gracias

sjam7 · #2 (**permalink**) 12/02/2005, 13:00

y cual es el problema????

HPNeo · #3 (**permalink**) 12/02/2005, 14:44

Que no funciona, en primer lugar: es posible mandar mails con ese parametro(de abrir una base de datos)?

sjam7 · #4 (**permalink**) 12/02/2005, 18:01

si es posible hacer algo asi, no he leido bien el codigo pero si se puede sacar datos de base de datos, lo que tampoco se es que se pueda mandar con
strHost = "mail.hotmail.com"

HPNeo · #5 (**permalink**) 13/02/2005, 16:02

Es creo el SMTP, si funciono cuando mande un mail con la misma pagina, pero sin usar base de datos y solamente pase datos por formulario

sjam7 · #6 (**permalink**) 14/02/2005, 09:04

lo que veo es que el Mail.Send lo tienes fuera del do while que te toma los datos, entonces no envia nada por que en el do while nomas tomas los datos de la base de datos pero no usas el mail.send con cada dato.

HPNeo · #7 (**permalink**) 14/02/2005, 19:04

Gracias, lo probare y luego mando los resultados.

HPNeo · #8 (**permalink**) 15/02/2005, 11:27

Ok, hice lo que me señalaron lineas arriba:

Código:

 <%
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("databases/emails.mdb")
sql = "SELECT * FROM Alumnos"
Set oRS = Server.CreateObject ("ADODB.RecordSet")
oRS.Open sql, oConn
' change to address of your own SMTP server
strHost = "mail.hotmail.com"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
   ' enter valid SMTP host
   Mail.Host = strHost 
   Mail.From = Request("From") ' From address
   Mail.FromName = Request("FromName") ' optional
 do while not oRS.eof
   Mail.AddAddress oRS.Fields("Email")
   ' message subject
   Mail.Subject = Request("Subject")
   ' message body
   Mail.Body = Request("Body")
   strErr = ""
   bSuccess = False
On Error Resume Next ' catch errors
   Mail.Send ' send message
   If Err <> 0 Then ' error occurred
  strErr = Err.Description
   else
  bSuccess = True
   End If   

 rs.movenext
		loop
End If
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<% If strErr <> "" Then %>
<h3>Error occurred: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
Mensajes enviados
<% End If %>
<FORM METHOD="POST" ACTION="mail.asp">
<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
   <TD>Host (change as necessary in script):</TD>
   <TD><B><% = strHost %></B></TD>
</TR>
<TR>
   <TD>From (enter sender's address):</TD>
   <TD><INPUT TYPE="TEXT" NAME="From"></TD>
</TR>
<TR>
   <TD>FromName (optional, enter sender's name):</TD>
   <TD><INPUT TYPE="TEXT" NAME="FromName"></TD>
</TR>
<TR>
   <TD>Subject:</TD>
   <TD><INPUT TYPE="TEXT" NAME="Subject"></TD>
</TR>
<TR>
   <TD>Body:</TD>
   <TD><TEXTAREA NAME="Body"></TEXTAREA></TD>
</TR>
<TR>
   <TD COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="Send Message">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>

Pero sigue dandome error, alguna sugerencia?

Ramonkill · #9 (**permalink**) 20/02/2005, 20:20

Hola.
Creo que el error debe ser Acceso Denegado ya que con el host. mail.hotmail.com no se pueden mandar mails.
Saludos.