Hola que tal.
Yo tambien tengo un problema y es que quiero utilizar gmail para enviar los correos y me da error pero creo que es un error de seguridad.
Este es el error:
Código:
Error: 530 5.7.0 Must issue a STARTTLS command first x27sm2336616nfb
Y estoy utilizando aspemail de persits.
Yo no creo que sea ningun problema en el código sino que debe ser algun problema con el servidor.
Esta es la página de envío:
Código:
<%
dim datos,con
datos= Server.MapPath ( "/instinto/bd/instinto.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="smtp.gmail.com"
Mail.Port=587
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 Emails 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%>
Saludos
