Código:
<%
'...
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.velazquez.com.mx"
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Mail.From = "[email protected]"
Mail.FromName = "Manuel Meneses (ashketchum)"
Mail.Subject = "Prueba de mail"
'Mail.Body = "<HTML><BODY BGCOLOR=#000000><font face = verdana color = #00FF00>Estimado Sr: Meneses</font></BODY></HTML>"
Mail.Body = "<html><body bgcolor = 000000><font face = verdana color = #00FFF0 size = 2>Es una prueba para envio de mail masivo de la DB de candidatos</font><br><br><img src = http://www.efrance.fr/masteraspx/images/logomasterASP.jpg></body></html>"
Mail.IsHTML = True
Response.Write "Hola Manuel, el correo ha sido enviado a las siguientes direcciones"
Response.Write "<br>" & "<br>"
While Not (EnvioMail.EOF)
direccionmail = (EnvioMail.Fields.Item("Email").Value)
'Response.Write (EnvioMail.Fields.Item("Email").Value) & "<br>" & "<br>"
Mail.AddAddress direccionmail ', "Ejecutivos de VELAZQUEZ" "[email protected]", "Destinos"
EnvioMail.MoveNext()
Mail.Send
Wend
On Error Resume Next
Mail.SendToQueue
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If
'...
%>
creo que el problema esta en el While, pero no se porque, de antemano muchas gracias
saludos y suerte
<img src="http://www.efrance.fr/masterASPx/firma.jpg" width="465" height="79" border="0" usemap="#URL">
<map name="URL">
<area shape="rect" coords="270,48,347,61" href="http://www.efrance.fr/masteraspx" target="_blank">
</map>