Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Email con Cdont

17/07/2003 - 15:56 por Aldo | Informe spam
Ayuda Hacer una pregunta
Hola Sres.
Mi consulta es la siguiente :

Resulta que tengo una pagina ASP , la cual envía email
con el Objeto NewMail de CDONTS, el problema es que
cuando quiero enviar un correo a una persona de mi
compañia no llegan, pero si llegan a Hotmail, Yahoo, ets.

Me gustaría saber si a lo mejor es por el Firewall o
algun otro problema.


Gracias.
Aldo.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Oscar Moreno
21/07/2003 - 13:18 | Informe spam
Esto no funciona con CDO 1.21, sino con el CDO para
Win2000.

Lo he probado así y no me funciona. No sé si será por
cuestiones de permisos del servidor de correo de mi
empresa o algún tipo de Firewall.

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields


Flds
("http://schemas.microsoft.com/cdo/co...smtpserver
") = "mail.domain.com"
Flds
("http://schemas.microsoft.com/cdo/co...smtpserver
pickupdirectory") = "C:\Inetpub\mailroot\Pickup"
Flds
("http://schemas.microsoft.com/cdo/co...smtpserver
port") = 25
Flds
("http://schemas.microsoft.com/cdo/co...sing"
) = 1
Flds
("http://schemas.microsoft.com/cdo/co...smtpaccoun
tname") = "Moreno Sanchez"
Flds
("http://schemas.microsoft.com/cdo/co...sendemaila
ddress") = "omorenos"
Flds
("http://schemas.microsoft.com/cdo/co...smtpauthen
ticate") = 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = ""
.Subject = "Asunto"
.HTMLBody
= "<HTML><HEAD></HEAD><BODY><H1>prueba</H1></BODY></HTML>"
'aca metes el html
.Send
End With


Con CDO puedes enviar correo en formato HTML

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds


("http://schemas.microsoft.com/cdo/co...smtpserver
") >"mail.domain.com"

Flds


("http://schemas.microsoft.com/cdo/co...smtpserver
pickupdirecto
ry")="C:\Inetpub\mailroot\Pickup"
Flds


("http://schemas.microsoft.com/cdo/co...smtpserver
port") = 25
Flds


("http://schemas.microsoft.com/cdo/co...sing"
) = 1
Flds


("http://schemas.microsoft.com/cdo/co...smtpaccoun
tname") >request("apellidos")
Flds


("http://schemas.microsoft.com/cdo/co...sendemaila
ddress") >request("correo")
Flds


("http://schemas.microsoft.com/cdo/co...smtpauthen
ticate") = 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = ""
.Subject = ccc
.HTMLBody = strBody 'aca metes el html
.Send
End With

Sashka

"Oscar Moreno" escribió en el


mensaje
news:078501c34cf3$b461ad50$
Me viene que ni pintado tu pregunta, porque yo también
tube problemas en su momento. Mi problema era que no me
funcionaba el NewMail, que era con lo único que podía
enviar HTML. Imagino que en mi caso era por un problema de
permisos.

Yo usé CDO y funcionó, pero no podía enviar correo con
formato HTML.

¿Alguien podría decirme cómo usar NewMail u otro para
enviar HTML?

Gracias. Un saludo.


Hola Sres.
Mi consulta es la siguiente :

Resulta que tengo una pagina ASP , la cual envía email
con el Objeto NewMail de CDONTS, el problema es que
cuando quiero enviar un correo a una persona de mi
compañia no llegan, pero si llegan a Hotmail, Yahoo, ets.

Me gustaría saber si a lo mejor es por el Firewall o
algun otro problema.


Gracias.
Aldo.
.





.

Preguntas similares

 

Busqueda sugerida :