CDOSys como enviar mails de base en TXT

AJVEvoluzione · #1 (**permalink**) 24/02/2005, 11:09

Hola!

el tema es así:
Quiero mandar mediante un ASP con CDOSys un e-mail a una lista de correo que se encuentra guardad en un TXT cómo hago?
tengo el CDOSys como le doy la orden para que busque en el txt un mail y que despues continue con el siguiente que esta despeus de la coma y despues el siguiiente y asi hasta finalizar con toda la lista
el TXT seria una cosa así:
[email protected], [email protected], [email protected]

osea separados por comas, quiero que tome el primer mail y mande el mail osea que solo figure ese e-mail como destinatario en To: o Para: y despues cuando lo envio busque el siguiente hasta terminar con la lista, me gustaría hacerlo asi porque si tengo que ahcer una base de datos se me complica

pasar todo, alguien me puede ayudar? como le indico ese procedimiento?

AJVEvoluzione · #2 (**permalink**) 24/02/2005, 11:10

aclaro que aparecierno los mails entre corchetes pero solo estan separados por comas

AJVEvoluzione · #3 (**permalink**) 25/02/2005, 16:07

Ayudenmeeeeeee con este temaaaaaaaaa

PDHosting · #4 (**permalink**) 25/02/2005, 20:17

Mira esto:

http://www.proveedoresdehosting.com/viewtopic.php?t=22

AJVEvoluzione · #5 (**permalink**) 26/02/2005, 08:12

Si me explica sobre el funcionamiento de CDOSys pero no encuentro como hacer para variar el destinatario apartir de tomar las direcciones de un TXT

AlZuwaga · #6 (**permalink**) 26/02/2005, 10:00

Con FSO levantás el contenido del txt. Luego le hacés un split por la coma para convetilo en un array y finalmente "loopeas" el array para mandar los mails:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Contenido = filesys.OpenTextFile(Server.MapPath("archivodemail s.txt"), 1, false)
Mails = Contenido.ReadAll
Set Contenido = Nothing
Set FSO = Nothing

Mails = Split(Mails, ",")

For i = 0 To UBound(Mails)
' acá tu código para enviar correos
' El destinatario lo tenés en Mails(i):
Response.wRITE Mails(i)
Next
%>

AJVEvoluzione · #7 (**permalink**) 26/02/2005, 10:40

A ver si entendí bien: creo el objeto con FSO para que me abra el archivo donde tengo las direcciones y con un split para que me marque el final de cada mail entre comas, pero no entiendo como incorporar el mail en todo esto para que despues me haga un loop de la siguiente direccion hasta finalizar la lista.

lo que tengo es esto :

Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

ip=CStr(Request.servervariables("remote_host"))
fecha=Day(Now())&"/"&Month(Now())&"/"&Year(Now())

Const cdoSendUsingPort = 2

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "200.111.1.100"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With

strHTML = "----- NewsLetter 5-----"
strHTML = strHTML & " "
strHTML = strHTML & "  "
strHTML = strHTML & "Nombre: " & Request.Form("textfield6")
strHTML = strHTML & " "
strHTML = strHTML & "E-mail: " & Request.Form("textfield7")
strHTML = strHTML & " "
strHTML = strHTML & "Fecha: " & fecha & " Ip: " & ip
strHTML = strHTML & "<img src=http://www.miweb.com/banner2.JPG width=288 height=50>"

With iMsg
Set .Configuration = iConf
.To = "MI WEB<[email protected]>"
.From = "MI WEB<[email protected]>"
.Subject = "Newsletter 5"
.HTMLBody = strHTML
.Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Response.Redirect "http://www.miweb.com/ok.htm"

AlZuwaga · #8 (**permalink**) 26/02/2005, 11:16

Bueno, no lo probé.. pero supongo que debería funcionar. Te marco los agregados y las modificaciones de tu código en bold:

Código:

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Contenido = filesys.OpenTextFile(Server.MapPath("archivodemails.txt"), 1, false)
Mails = Contenido.ReadAll
Set Contenido = Nothing
Set FSO = Nothing

Mails = Split(Mails, ",")


Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

ip=CStr(Request.servervariables("remote_host"))
fecha=Day(Now())&"/"&Month(Now())&"/"&Year(Now())

Const cdoSendUsingPort = 2

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "200.111.1.100"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With

strHTML = "<p align=center>----- NewsLetter 5-----</p>"
strHTML = strHTML & "<p align=center><br>"
strHTML = strHTML & "<p align=center>&nbsp;<br>"
strHTML = strHTML & "Nombre: " & Request.Form("textfield6")
strHTML = strHTML & "<br>"
strHTML = strHTML & "E-mail: " & Request.Form("textfield7")
strHTML = strHTML & "<br>"
strHTML = strHTML & "Fecha: " & fecha & " Ip: " & ip
strHTML = strHTML & "<p align=center><img src=http://www.miweb.com/banner2.JPG width=288 height=50></p>"

With iMsg
Set .Configuration = iConf
.From = "MI WEB<[email protected]>"
.Subject = "Newsletter 5"
.HTMLBody = strHTML

For i = 0 To UBound(Mails)
.To = Mails(i)
.Send
Next

End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Response.Redirect "http://www.miweb.com/ok.htm"

Avisá si funciona

AJVEvoluzione · #9 (**permalink**) 26/02/2005, 13:27

MMmm nooo me da error!

que tiene mal?

AlZuwaga · #10 (**permalink**) 26/02/2005, 18:56

Qué tiene mal? Qué se yo! Te dije que no lo probé! (y no lo haré)
Qué mensaje de error te da???

AJVEvoluzione · #11 (**permalink**) 27/02/2005, 04:27

Error500
El servidor ha tenido un error interno, y no puede continuar con el procesamiento. El servidor encontró una condición inesperada o irregular que no le permitió ejecutar la llamada.

AlZuwaga · #12 (**permalink**) 27/02/2005, 17:27

Usá el buscador del foro, acotando los resultados al foro ASP, sobre "errores descriptivos". Hay te va a decir cómo desactivar esa opción que trae el IE por defecto y que no nos sirve a la hora de ver los errores que ocurren.

AJVEvoluzione · #13 (**permalink**) 10/03/2005, 00:53

No Entiendooooooooo

AlZuwaga · #14 (**permalink**) 10/03/2005, 10:20

Ok, me refería a esto:

Cita:

Usá el buscador del foro...

http://www.forosdelweb.com/search.php

Cita:

..., acotando los resultados al foro ASP,...

Donde dice "Buscar en foro(s)", seleccioná el foro ASP.

Cita:

sobre "errores descriptivos".

Está bien, lo redacté muy mal... Quise decir que coloques mensajes descriptivos como criterio de búsqueda en el espacio que dice "Buscar por palabra clave"

Cita:

Hay te va a decir cómo desactivar esa opción que trae el IE por defecto y que no nos sirve a la hora de ver los errores que ocurren.

¿¿Hay??

Nuevamente, mal redactado

. Intenté escribir "ahí". Y con "ahí" me refería a que en los resultados de la búsqueda vas a encontrar la respuesta. Misma que he escrito cientos de veces y que no tengo ganas de volver a escribir... bueno, está bien... tomá, era ésta la respuesta:

Cita:

en tu IE, andá a "herramientas -> opciones de internet -> opciones avanzadas" y allí desmarcá la casilla que dice algo así como "mostrar mensajes descriptivos para los errores http"

Luego, probalo de nuevo y fijate el mensaje de error real

Pero que conste que no la volví a escribir... la copié de otro mensaje y la pegué aquí

AJVEvoluzione · #15 (**permalink**) 10/03/2005, 14:09

Deshabilite "mostrar mensajes descriptivos para los errores http" y me sigue dando error 500 y no encuentro donde esta el error, aunque sea hincha bolas! alguien que pueda ayduarme? ;-(

AlZuwaga · #16 (**permalink**) 10/03/2005, 14:56

Pero ahora DEBERÍA darte una descripción detallada del error, número de línea incluido. Esa es la información que se necesita para saber por dónde puede estar el error.