Problemas con CDOsys

05111955 · #1 (**permalink**) 22/03/2005, 14:15

Hola amigos del foro...
Paso a contar cual es mi problema.
desarrolle una pagina ASP que lee una base de datos Acess busca los mail de los usuarios y a que servicios estan subscriptos, luego busca en la base de anunciantes y selecciona lo que tiene que mandar por mail a cada usuario, hasta aca todo perfecto...
luego pone en una variable el codigo html que tiene que enviar por mail, utilizo el CDOsys de win2000 para enviarlo, pero aqui comienzan los problemas, si lo muestro por pantalla con response.write( Variable ), se ve perfecto y completo, hasta la ultima linea, pero cuando bajo el correo que envio, me falta una gran parte del codigo, probe si era un problema de db pero no, porque cancelo info desde la base y el codigo enviado por mail sale un poco mas, llege a la conclusion que puede ser que el CDOsys no soporte mas que un limite de caracteres, y yo este exediendo ese limite.....
Tengo dos preguntas para hacer:
Alguien sabe si el CDOsys posee algun limite en la cantidad de caracteres que puede enviar.
Existe algun otro componente que no sea ASPEmail ( ya lo probe y hace lo mismo), para realizar lo que necesito.....

Desde ya muchas gracias....
Ruben Vazquez - Buenos Aires - Argentina

Xculio · #2 (**permalink**) 23/03/2005, 02:17

Probaste a especificar que el codigo del mail es HTML (por como lo has esplicado me parece que te refieres a un email con estructura de web)

Mira a ver, no se me ocurre otra cosa, pero creo recordar que la primera vez que use ASPEMAIL a mi tambien me paso y lo solucione.

Saludos.

05111955 · #3 (**permalink**) 23/03/2005, 06:08

Hola Xculio,
El mail lo defino en .htmlBody en el objeto cdosys, y con las etiquetas en el codigo que envio <HTML><HEAD><BODY>........>, es mas, de echo funciona perfecto, el tema es que no me envia mas de aproximadamente 6500 caracteres ( todabia no lo medi exactamente, lo voy a merir hoy) y el mail me queda por la mitad +-

Saludos y Gracias.... Ruben

jocan · #4 (**permalink**) 05/04/2005, 14:49

lo que yo se que en el SMTP trae por defecto un limite de 2048 KB para el mensaje , prueba poniendo más KB. Lo otro es que algun caracter debe estar diciendo que el mensaje llega hasta ahi nomas y no sigue...alguna comilla doble??
Me acuerdo alguna vez cuando trabajé con un textbox que se guardaba en una BD oracle y tambien se cortaba por el largo del cambo de la BD. y por caracteres especiales.

Ahh.. estas trabajando con CDOSYS dijiste?
Yo he intentado trabajar con esta lib , pero siempre me salen errores.
podrias decirme +o- la configuracion de ésta para probar, sabes porque y que es lo que se pone en los parametros de configuracion:
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
Por qué se usan paginas para la configuracion????
Ya hevisto varios script que aparecen en este foro y nada resulta, incluso los que la proponen como solucion contra CDONTS, despues me responden que a ellos tampoco les funcionó.

05111955 · #5 (**permalink**) 05/04/2005, 15:53

Hola Jocan, ya resolvi el problema...
La cosa pasaba por como terminaba las lineas de código, yo las terminaba con un <br> pero eso no es un final de linea, solamente le dice al html que escriba en la linea de abajo,y me generaba una cadena que nadie podia procesar...
Para teminar las lineas hay que hacerlo con vbNewLine , problema terminado.
Te paso el cdigo que uso yo para el envio con cdosys, ojo que solo funciona en servidores win2000 winXP y win2003.

<%
'<<<>>> Funcion de envio de mails <<<>>>
function SendEmail

on error resume next
Dim iMsg,iConf,Flds, TextoCuerpo, Cli_Mail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.server.com" 'aca va el server de salida
.Update
End With

With iMsg
Set .Configuration = iConf
.To ="[email protected]" ' el mail del destinatario
.From = "[email protected]" 'el mail de evio
.Subject = "Novedades "
' .TextBody = mensaje 'en modo texto
.htmlBody = mensaje 'en modo html
.Send
End With

end function
%>

jocan · #6 (**permalink**) 06/04/2005, 12:08

Me podrías explicar los parametros de configuracion un poco más?
en lugar de ése 2 que otro nro puede ir??
se supone que mi servidor SMTP tiene el mismo nombre de mi equipo(por defecto), o sea jocan, porque cuendo le he puesto IP's me salen distintos errores.
Por que se ponen esos parametros dentro de sentencias With - End With??
Lo que pasa es que me salia un error por que nunca era Falso o algo asi. Esas son sentencias de .Net??
Gracias

05111955 · #7 (**permalink**) 06/04/2005, 14:11

te paso una pagina con info sobre cdosys
http://msdn.microsoft.com/library/sp...do_roadmap.asp

El lenguaje utilizado VisualScript...
El tema de with es porque se hace referencia a un objeto en este caso el primer objeto es Flds

Sin with quedaria asi

Flds..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.server.com" 'aca va el server de salida
Flds.Update
simplemente se escribe un poquito menos y queda mejor estructurado, es mas facil a la hora de depurar el codigo.
El 2 es el puerto local que vas a usar para el envio, se puede usar cualquiera, pero ese anda bien.
El tema del server ya es otra cosa, es muy posible que en tu maquina no funcione, exepto que tengas un server real funcionado, con ip propia y alojado en servidor de nombres, porque vos podes enviar mails desde tu maquina, pero el smtp server debe ser uno real (en internet) o utilizar un server relay...
saludos.

trasgukabi · #8 (**permalink**) 06/04/2005, 17:32

el 2 no es el puerto local. el único puerto que se le indica va con smtpserverport. Sendusing=1 indica que los emials enviados van a la carpeta incoming del servidor local y sendusing=2 indica que se le manda a un servidor SMTP.

Jocan, ayer te dejé un link a una página de Microsoft en la que se explica todo esto. Y la dejé porque la pediste.

jocan · #9 (**permalink**) 07/04/2005, 20:25

Si.. lo lei entero,es el mismo que me acava de dar 05111955 una guia basica, pero no aparecía nada de la configuración sólo decia lo bueno que es CDOSYS y bla bla...
en cambio el link que aparece en ingles ...ese si está bueno.
Gracias.