Envío de emails

pablinff · #1 (**permalink**) 11/11/2006, 12:59

Buenas gente necesito su ayuda...
Tengo este código que quiero utilizar para enviar mails a contactos que tengo en una BD, este es el código:

Código:

<%

'Para la parte del cuerpo (body) lo que hago es me compongo la pagina 'aparte y luego la 

incorporo añadiendole las comillas.
'Con un bucle segun tus usuarios y la instruccion MAIL.ADDRESS '"[email protected]"
'iras añadiendo los destinatarios
'(tendras tantas lineas MAIL.ADDRESS... como destinatarios)
dim datos,con,mail,rs

datos= Server.MapPath ( "/bd/sub.mdb" ) 

Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"


cText="<STYLE>" & chr(13) & chr(10)
cText=cText & ".indexr { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; 

font-weight: bold; color: #CC0000; text-decoration: none}" & chr(13) & chr(10)
cText=cText & ".texto { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; 

color: #000000}" & chr(13) & chr(10)
cText=cText & ".titulo { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 18px; 

font-weight: normal; color: #003366}" & chr(13) & chr(10)
cText=cText & "</STYLE>" & chr(13) & chr(10)

cText=cText & "<body bgcolor=""#FFFFFF"" text=""#000000"" leftmargin=""0"" topmargin=""0"" 

marginwidth=""0"" marginheight=""0"">" & chr(13) & chr(10)
cText=cText & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" 

align=""center"" height=""100""> " & chr(13) & chr(10)
cText=cText & "<tr> <td class=""texto"">Estimado/a " & Session("cUsuario") & "</td></tr>" & 

chr(13) & chr(10)
cText=cText & "<tr><td>&nbsp;</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto""> Aqui pones lo que quieras................</td></tr> " & 

chr(13) & chr(10)
cText=cText & "<tr><td class=""texto"" height=""51"">......Agradecemos el tiempo y la confianza 

dedicados.......</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""indexr"">.............</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td >&nbsp;</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td ><hr></td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto"">Desarrollos ..............</td></tr> " & chr(13) & 

chr(10)
cText=cText & "</table>" 

Set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host="mail.instintoar.com.ar"
Mail.Port=25
Mail.Username = "[email protected]"
Mail.Password = "*********"
Mail.From= "[email protected]"
Mail.FromName = "INSTINTO"
Mail.Subject= "Próximas Fechas" 
Mail.IsHtml=True
Mail.Body=cText
' Tus destinatarios


set rs=createobject("ADODB.Recordset")
'rs.CursorType = adOpenKeyset 
'rs.LockType = adLockOptimistic 

rs.open "select * from celmail order by id desc",con
' Recorremos el RecordSet
While not rs.EOF
Mail.AddAddress rs(1)
rs.MoveNext
Wend
rs.Close ' PAra cerrar el RecordSEt
'
Mail.AddBcc ""

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error: " & Err.Description
End if
con.close
set con=nothing

%>

El problema es que me da este error:

Código:

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'AddAddress' 

/autoemails.asp, line 53

Que no se porqué sea

Si alguien puede ayudarme se lo voy a agradecer mucho.
Saludos!

server-68 · #2 (**permalink**) 12/11/2006, 13:21

PAreciera que el error està en:

Set Mail=Server.CreateObject("Persits.MailSender")

HAs probado a ver que ese componente estè realmente funcionando en tu servidor?
Y si es asì.... prueba a descartar que esa parte del codigo estè equivocada.

pablinff · #3 (**permalink**) 13/11/2006, 15:07

Listo ya corregí el error, era porque no había espacios entre el signo "=" así que lo puse así:

Código:

Set Mail = Server.CreateObject("Persits.MailSender")

Pero... ahora me da error de autentificación y estoy poniendo bien todos los datos :S