Problemas con CDOSYS

22/02/2006 - 03:12 por JotaE | Informe spam

Señores, tengo un drama con en envio de mail a través de CDOSYS con ASP, en
un server 2003,

en donde con el siguientes codigo no funciona

<%
Set oMail = Server.CreateObject("CDO.Message")
para = "juan@tecrea.cl"
de = "fabian@tecrea.cl"
asunto = "Nuevo contacto en TECREA"
mensaje = strBody

oMail.From = de
oMail.To = para
oMail.Subject= asunto
' oMail.TextBody = mensaje
oMail.HTMLBody = mensaje
oMail.Send
Set oMail = Nothing

%>

me indican que tengo que usar otras opciones de CDOSYS como son

Generar un option explicit en la primera linea de codigo, luego dimensionar
cada variable empleada.
Ademas, deben autentificar e indicar con que servidor saldrá el mensaje.

la verdad que no se como usarlo... si alguien tiene un ejemplo que considere
todas estas opciones se los agradecería

Atentamente,
Juan Esteban Cayul Fono : 2657642 - 09 1355510
www.tecrea.cl

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Mila Prieto

22/02/2006 - 09:44 | Informe spam

JotaE escribió:

Señores, tengo un drama con en envio de mail a través de CDOSYS con ASP, en
un server 2003,

en donde con el siguientes codigo no funciona

<%
Set oMail = Server.CreateObject("CDO.Message")
para = ""
de = ""
asunto = "Nuevo contacto en TECREA"
mensaje = strBody

oMail.From = de
oMail.To = para
oMail.Subject= asunto
' oMail.TextBody = mensaje
oMail.HTMLBody = mensaje
oMail.Send
Set oMail = Nothing

%>

me indican que tengo que usar otras opciones de CDOSYS como son

Generar un option explicit en la primera linea de codigo, luego dimensionar
cada variable empleada.
Ademas, deben autentificar e indicar con que servidor saldrá el mensaje.

la verdad que no se como usarlo... si alguien tiene un ejemplo que considere
todas estas opciones se los agradecería

Atentamente,
Juan Esteban Cayul Fono : 2657642 - 09 1355510
www.tecrea.cl

Hola, prueba con ASPMail, es el que yo utilizo en una web que yo creé,
te paso el codigo que yo utilizo, si tienes alguna duda vuelve a preguntar.

un saludo

<% if request.querystring("accion") = "" then %>
<FORM METHOD="POST" ACTION="sugerencias.asp?accion=enviar"
name="sugerencias">
<p align="center">Nombre o sociedad: <INPUT NAME="destinatario"
TYPE="text" SIZE="30" MAXLENGTH="50"></p>
<p align="center"><BR>Sugerencias:<BR> <TEXTAREA NAME="mensaje" ROWS="3"
COLS="40">
</TEXTAREA></p>
<p align="center"></p>
<p align="center">
<INPUT TYPE="Submit" VALUE="Enviar">
</p>
</FORM>

<%

elseif request.querystring("accion") = "enviar" then
destinatario = request.form("destinatario")
mensaje = request.form("mensaje")
if destinatario <> "" and mensaje <> "" then

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "mail.oronegro.es"
Mail.From = ("")
Mail.FromName = destinatario
Mail.AddAddress ("")
Mail.Subject = "Sugerencia desde la Web"
Mail.Body = mensaje
Mail.Username = ""
Mail.Password = "****************"

Mail.Send
response.write "<center><b><br><br><br>Las sugerencias han sido
enviadas</b>.<br>¡Gracias por su colaboracion!"
%>
<p align="center"><br><br>

espero que te sirva.

Responder a este mensaje

#2 Manuel Vera

22/02/2006 - 15:15 | Informe spam

Prueba con este codigo...

<%@ Language=VBScript %>
<%
option explicit

' tu servidor de correos SMTP
const cSvrCorreo = "localhost"
const cHTML = "text/html"

call Prueba2

sub Prueba1
dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
'Formato Html
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.To = ""
objCDO.From = ""
objCDO.Subject = "Correo CDO"
objCDO.Body = "Este es un mensaje de prueba"
objCDO.Send
Set objCDO = Nothing
end sub

sub Prueba2
'Con CDO puedes enviar correo en formato HTML
dim iMsg , iConf , Flds, esquema
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
esquema = "http://schemas.microsoft.com/cdo/co...ion/"
Flds(esquema & "smtpserver") = "localhost"
Flds(esquema & "smtpserverpickupdirectory")="C:\Inetpub\mailroot\Pickup"
Flds(esquema & "smtpserverport") = 25
Flds(esquema & "sendusing") = 1
Flds(esquema & "smtpaccountname") = "tu empresa o web"
'Flds(esquema & "sendemailaddress") = sEmailFrom
Flds(esquema & "smtpauthenticate") = 0'cdoAnonymous
Flds.Update

With iMsg
Set .Configuration = iConf
.BCC = "Test1 "
.CC = "Test2 "
.From = "Test3 "
.Sender = "Test4 "

.To = ""
.Subject = "Una prueba"
.HTMLBody = "<html><body><h1>Este es un mensaje de
prueba</h1></body></html>" 'aca metes el html
.TextBody = "Este es un mensaje de prueba"
.Send
End With

Set Flds = nothing
Set iConf = nothing
Set iMsg = nothing

end sub
%>
<HTML>
<BODY>
<P>Enviado</P>
</BODY>
</HTML>

Responder a este mensaje

#3 Carlos

22/02/2006 - 16:37 | Informe spam

JotaE,

En esta liga vienen muchas opciones diferentes para el uso de CDOSYS.
http://www.w3schools.com/asp/asp_send_email.asp

Saludos,

Carlos

"JotaE" wrote in message
news:

Señores, tengo un drama con en envio de mail a través de CDOSYS con ASP,
en un server 2003,

en donde con el siguientes codigo no funciona

<%
Set oMail = Server.CreateObject("CDO.Message")
para = ""
de = ""
asunto = "Nuevo contacto en TECREA"
mensaje = strBody

oMail.From = de
oMail.To = para
oMail.Subject= asunto
' oMail.TextBody = mensaje
oMail.HTMLBody = mensaje
oMail.Send
Set oMail = Nothing

%>

me indican que tengo que usar otras opciones de CDOSYS como son

Generar un option explicit en la primera linea de codigo, luego
dimensionar cada variable empleada.
Ademas, deben autentificar e indicar con que servidor saldrá el mensaje.

la verdad que no se como usarlo... si alguien tiene un ejemplo que
considere todas estas opciones se los agradecería

Atentamente,
Juan Esteban Cayul Fono : 2657642 - 09 1355510
www.tecrea.cl

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida