Email con Cdont

17/07/2003 - 15:56 por Aldo | Informe spam
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 similare

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.
.





.

Respuesta Responder a este mensaje
#2 Sashka
22/07/2003 - 00:49 | Informe spam
Sip... tienes toda la razón... supuse que hablabas de cdosys. CDO 1.21
es MAPI... y que yo sepa no puedes enviar HTML con él...

Sashka

"Oscar Moreno" escribió en el mensaje
news:076201c34f79$e1a65f80$
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.
.





.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida