Foros del Web » Programando para Internet » ASP Clásico »

Problemas al enviar emials con CDO !

Estas en el tema de Problemas al enviar emials con CDO ! en el foro de ASP Clásico en Foros del Web. 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" ...
  #1 (permalink)  
Antiguo 01/10/2012, 13:50
Avatar de @padawan@  
Fecha de Ingreso: julio-2005
Mensajes: 393
Antigüedad: 14 años, 3 meses
Puntos: 6
Problemas al enviar emials con CDO !

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 = "[email protected]"
		
        miMail.cc = ""
	miMail.Bcc = ""

	miMail.Subject = "Algo"
	
	miMail.TextBody = "Algo"
	
	miMail.Send
	
	Set miMail = Nothing
	set Config = nothing
Tira el siguiente error:
Cita:
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.
  #2 (permalink)  
Antiguo 03/10/2012, 08:43
Avatar de @padawan@  
Fecha de Ingreso: julio-2005
Mensajes: 393
Antigüedad: 14 años, 3 meses
Puntos: 6
Respuesta: Problemas al enviar emials con CDO !

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.
  #3 (permalink)  
Antiguo 03/10/2012, 09:24
 
Fecha de Ingreso: septiembre-2011
Mensajes: 116
Antigüedad: 8 años, 1 mes
Puntos: 8
Respuesta: Problemas al enviar emials con CDO !

Buenas @[email protected]

Cita:
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
  #4 (permalink)  
Antiguo 03/10/2012, 09:28
Avatar de @padawan@  
Fecha de Ingreso: julio-2005
Mensajes: 393
Antigüedad: 14 años, 3 meses
Puntos: 6
Respuesta: Problemas al enviar emials con CDO !

Cita:
Iniciado por gdasoft Ver Mensaje
Buenas @[email protected]



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 .
  #5 (permalink)  
Antiguo 17/10/2012, 05:00
 
Fecha de Ingreso: octubre-2012
Mensajes: 1
Antigüedad: 7 años
Puntos: 0
Respuesta: Problemas al enviar emials con CDO !

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??

Última edición por peporrillo; 17/10/2012 a las 05:09
  #6 (permalink)  
Antiguo 17/10/2012, 09:02
 
Fecha de Ingreso: septiembre-2011
Mensajes: 116
Antigüedad: 8 años, 1 mes
Puntos: 8
Respuesta: Problemas al enviar emials con CDO !

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
Cita:
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:

Cita:
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

Etiquetas: asp, cdo, funcion, server
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 06:31.