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> </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 > </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!
