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
 

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.

Preguntas similares