fallo al enviar correo por asp

d_a_n_n · #1 (**permalink**) 13/08/2010, 16:12

Hola,

Estoy creando una web que envíe correos automáticamente en ASP y tengo el sgt código:
<%

Dim s
Dim db

Dim doc
Set s = Server.CreateObject("Lotus.NotesSession")
Call s.Initialize("Surikatita2")

Set db = s.GetDatabase("sldlcli101/TDP", "mail\GCR\dparedesi.nsf") '--> ok
Set doc = db.CreateDocument
Call doc.AppendItemValue("Form", "memo")
Call doc.AppendItemValue("CopyTo", Split(copia, ","))
Call doc.AppendItemValue("SendTo", Split("[email protected]", ","))
Call doc.AppendItemValue("Subject", "pruebita")
Call doc.AppendItemValue("Body", "pruebas enviando correos desde web")

doc.SaveMessageOnSend = True
Call doc.Send(False)

%>

El código al correrlo funciona OK! sí y sólo sí mi cuenta de lotus (mi bandeja) está cerrada. Y me deja un dllhost.exe abierto con un usuario: IWAM_

Si elimino este archivo recién puedo abrir mi lotus. Si tengo mi lotus abierto mi web me dice que hay un error en crear el objeto.

Ayuda porfas... supongo que no estoy cerrando el objeto que he creado ... pero no sé cómo cerrarlo.

Muchas gracias por su ayuda.

Daniel

Myakire · #2 (**permalink**) 14/08/2010, 10:07

La verdad si es molestia, nadie va a contestar en el foro y además mandarte un correo, tu puedes suscribirte a este tema y cuando alguien responda te mandara aviso a tu correo.

Y una pregunta sobre tu problema, ¿por qué mandas correo de esa forma y no por medio de un objeto de envío de emails como Dundas por ejemplo?

d_a_n_n · #3 (**permalink**) 14/08/2010, 21:26

Hola Myakire
Es mi primera vez posteando algo en un foro, por eso puse si no era mucha molestia, no me llegó el correo de notificación(no sé bien como suscribirme, voy a estar dando varios clicks) me he tenido que meter una y otra vez para ver si alguien me podía ayudar. Gracias por la aclaración.

Por qué estoy enviando mail así?... es el modo en que se envían actualmente desde el aplicativo hecho en Visual Basic desde el lotus de la empresa donde trabajo y busqué su equivalente al ASP y como funcionaba creí que era lo óptimo.

Voy a revisar respecto a Dundas, pero si me podrías ayudarme con un ejemplo te lo agradecería. Estoy programando en ASP, no en ASP.NET.

Saludos

Danie

Myakire · #4 (**permalink**) 15/08/2010, 18:35

En ASP lo ideal es que lo mande directamente un control de envío de correo que interactue con el IIS, como CDONTS o CDOSYS que ya trae el sistema operativo (dependiendo del que tengas será el que dispongas) y normalmente solo es cosa de configurar, pero también puedes hacerlo con componentes de terceros, unos gratuitos como DundasMailer y otros de paga como AspEMail.

Checa la documentación del que elijas es bastante sencillo. Igual prueba alguno y si tienes dudas, pega el código y te echamos una mano

Saludos

PD. Para suscribirte a este tema, tienes un menù en la parte superior que dice "Herramientas", la segunda opciòn dice "Suscribirse a este tema", si cuando te registraste colocaste un email válido, cuando alguien responda se te mandará la respuesta y una liga al tema.

d_a_n_n · #5 (**permalink**) 15/08/2010, 19:18

xvr man.. mañana en la chamba lo pruebo y te paso la voz. grcias

d_a_n_n · #6 (**permalink**) 16/08/2010, 10:54

mm.. ya probé y nada...
Yo soy un usuario con privilegios de administrador. Así recién pude activar el IIS. Instalé el cdonts.dll porque me decía que no podía crear el objeto...
Corro la web enviando con un código de inter para usar el CDONTS... y me sale como si ya fuese enviado... pero no envía nada a mi bandeja...
Estoy en intranet y no tengo acceso a internet...
Sabes qué pudo haber pasado? porque ahora ni me sale error de envío... u objeto no creado... :S

Myakire · #7 (**permalink**) 16/08/2010, 14:04

Sería útil ver qué código estas usando para enviar correo.

Haz una página que solo mande un correo para hacer las pruebas.

d_a_n_n · #8 (**permalink**) 16/08/2010, 14:21

Tengo este mismo problema (exactamente el mismo...)
http://www.forosdelweb.com/f15/configuracion-para-cdonts-297751/

el código para enviar es:
<%
Set objMail = Server.CreateObject("CDONTS.NewMail")

cuerpo = cuerpo & "<HTML>"
cuerpo = cuerpo & "<BODY bgcolor='#FFEEEE'>"
cuerpo = cuerpo & "<P ALIGN='center'>Texto centrado</P>"
cuerpo = cuerpo & "</BODY>"
cuerpo = cuerpo & "</HTML>"

objMail.BodyFormat = 0
objMail.MailFormat = 0

objMail.From = "[email protected]"
objMail.To = "[email protected]"
objMail.Subject = "Asunto del mail"
objMail.Body = cuerpo

objMail.Send
set objMail = nothing
%>

En ese otro foro... postearon y postearon respuestas... pero ninguna funcionó...

Myakire · #9 (**permalink**) 16/08/2010, 16:30

¿Y la solución no será exactamente la misma?, que no tengas el CDONT sino el CDOSYS, por eso te decía que dependiendo del SO que tengas será el componente que tengas.

d_a_n_n · #10 (**permalink**) 16/08/2010, 20:18

umm... el servidor virtual SMTP... se tiene que configurar??
porque el servidor de correos al que se conecta el lotus está en otra compu.. la mía a la fuerza la convertí en servidor... :S