| |||
envio de correo Alguién sabe como va el tema de los correos que llevan por mensaje una página de publicidad, no son los tipicos correos de texto sino aquellos que ejecutan código una vez que los abres.Es que necesito mandar correos que ejecuten código html. |
| ||||
Por fin aclarás qué componente de correo vas a utilizar... Con CDONTS sería usando la propiedad BodyFormat a 0 (el valor por default es 1 y corresponde a texto plano):
Código:
Dim myMail Set myMail = CreateObject("CDONTS.NewMail") HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & ""content=""text/html; charset=iso-8859-1"">"" HTML = HTML & "<title>Sample NewMail</title>" HTML = HTML & "</head>" HTML = HTML & "<body>" HTML = HTML & "This is a sample message being sent using HTML. <BR></body>" HTML = HTML & "</html>" myMail.From = "[email protected]" myMail.To = "[email protected]" myMail.Subject = "Sample Message" myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Body = HTML myMail.Send Set myMail = Nothing |
| |||
he probado el ejemplo anterior, lo ejecuto y no me da problemas, pero los mensajes se quedan en la carpeta mailroot\Queue\ y no llegan a su destino.¿cual puede ser el problema? es más miro en el visor de sucesos y me pone el siguiente mensaje: No se pudo entregar un mensaje al dominio remoto , el motivo es el siguiente: El servidor remoto no respondió a un intento de conexión. creeis que es un problema de configuración del servidor de correo, o es alguna otra cosa. |