Problemas al enviar emials con CDO !

[@padawan@]

Utilizo un codigo similar a este:

Código:

Set miMail = Server.CreateObject("CDO.Message")
	
	Set Config = Server.createObject ("CDO.Configuration")
	With Config
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Ip_Server o NOmbre server SMTP"
	
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
	.Fields.update
	End With
	
		
	Set miMail.Configuration = Config
	
	miMail.From = "[email protected]"
	miMail.To = "lala@lalacom"
		
        miMail.cc = ""
	miMail.Bcc = ""

	miMail.Subject = "Algo"
	
	miMail.TextBody = "Algo"
	
	miMail.Send
	
	Set miMail = Nothing
	set Config = nothing

Tira el siguiente error:

error '8004020f'

Justo en la linea donde envia es decir en:

Código:

miMail.Send

Busque el codigo de error de internet, pero entre las soluciones y alternativas todas no solucionan el problema.
Ademas este script estaba probado y funcionando correctamente hace ya como 6 o 7 años, y funcionaba correctamente hasta el viernes pasado que dejo de funcionar repentinamente, consulte si en el hosting modificaron algo pero me dijeron que no.

Realmente ya me doy por vencido, habra caducado CDO para asp clasico???

gracias por sus comentarios.

Saludos.

[@padawan@]

El problema es que el From tiene que ser una cuenta de email que este en nuestro dominio de SMTP, de lo contrario no funciona.

[gdasoft]

Buenas @padawan@

set mail=server.CreateObject("CDO.Message")
mail.From= Request("sender")
mail.To = "[email protected]"
mail.Subject = Request("subject")
mail.TextBody = "Mensaje: " & body
'mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain
'mail.MailFormat = 1 ' 0 = MIME, 1 = Text
'mail.Importance = 1 ' 0 = High, 1 = Medium, 2 = Low
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XXX.XXXXX.com"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXX"
mail.Configuration.Fields.Update
mail.Send
set mail=nothing

Con ese codigo envio emails desde mi servidor sin problemas

[@padawan@]

Iniciado por gdasoft

Buenas @padawan@



Con ese codigo envio emails desde mi servidor sin problemas

El problema ya lo solucioné pero voy a probar tu codigo a ver si funciona con el From distinto a una cuenta de mi dominio de SMTP .

[peporrillo]

Buenas, no sé si es el lugar y si sigue activo el post, pero espero q me pueden ayudar:

Actualmente estoy editando un archivo que no he realizado yo, con extension WSF en el que se ha programado en VBScript, este archivo funciona correctamente, y cuando se utiliza realiza las operaciones que se esperan de manera correcta. En este archivo hay un momento en el que se realiza un envio por correo usando el objeto CDO.Message, pero cual ha sido mi sorpresa cuando me he encontrado que en el código no se define en ningún lado los datos del servidor SMTP, tales como la dirección del servidor, el usuario y contraseña de la cuenta de correo etc... como habéis descrito en comentarios anteriores. Únicamente aparece esto:

set iMsg = CreateObject("CDO.Message")
With iMsg
.From = De 'Dirección del remitente
.To = Para 'Dirección de destino
.Subject = Asunto
.HTMLBody = Texto
On error Resume Next
.Send
End With

Mi duda viene porque me pregunta mi jefe, que con que cuenta de correo se envia, es decir que servidor SMTP se utiliza al enviar los correos, y como bien os describo no aparece, ya llevo dos dias revisando todo por si se me escapa algo, pero siempre llego a la misma conclusion.

¿ES ESTO POSIBLE???? ¿¿¿NO SE DEBERÍA ESPECIFICAR OBLIGATORIAMENTE?? ¿EN CASO DE QUE NO SEA OBLIGATORIO, DONDE AVERIGUO LA CUENTA DE CORREO QUE USA??

[gdasoft]

Si no se especifica la configuración SMTP externa entonces utiliza el SMTP local de tu maquina. Yo tengo configurado el CDO.Message con la configuración de mi cuenta de correo, aunque luego el FROM le pongo la dirección que yo quiero y funciona.

Aprovechando este mismo hilo queria hacerles una consulta. Tengo montado un sistema de mailing con el cual realizo campañas.

El problema que tengo ahora es que mi base de datos a crecido mucho, y aquí el problema. Tengo que realizar un envio de quizas unos 5000 emails de golpe.

La aplicación que tengo recorre con un while la tabla de contactos en busca del email y envia el correo. Esta operación se puede demorar como unos 15 min. para enviar 600 emails.

Así pues habia pensado en utilizar un while para rellenar el mail.Bcc, pero no se que capacidad soporta el mismo.

Lo que quiero decir es que no se si puedo enviar un mail a través de CDO añadiendo por ejemplo 500 direcciones en el mail.From, quizas tenga alguna limitación y no pueda añadir más de 100 en un solo email.

Actualmente solo añado un email en el mail.From, pero si consigo añadir por ejemplo los 500 que decia reduciria enormemente el tiempo de ejecución.

Gracias a todos.

Código actual

while (Not rs3g.EOF)
set mail=server.CreateObject("CDO.Message")
mail.From= eMail
mail.To = rs3g("email")
mail.Subject = Asunto
if idForoSi="on" then
mail.HtmlBody = Msj_URL
else
mail.HtmlBody = Msj_sin_URL
end if
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XXXXX"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXXXX"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXX"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
mail.Configuration.Fields.Update
mail.Send
set mail=nothing
Contador_emails = Contador_emails + 1
rs3g.Movenext
wend
rs3g.Close
set rs3g=nothing

La idea que tengo es:

Correos = ""
Correos = rs3g("email") & ";"
while (Not rs3g.EOF)
Correos = Correos & rs3g("email") & ";"
rs3g.Movenext
wend
set mail=server.CreateObject("CDO.Message")
mail.From= eMail
mail.To = "[email protected]"
mail.Bcc = Correos
mail.Subject = Asunto
mail.HtmlBody = Texto mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XXXXXXX"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXXXXXX"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXXXX"
mail.Configuration.Fields.Update
mail.Send
set mail=nothing
rs3g.Close
set rs3g=nothing

A la espera de su respuesta, reciban un cordial saludo