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

ASP: error al enviar correo de mi server a hotmail o gmail

Estas en el tema de ASP: error al enviar correo de mi server a hotmail o gmail en el foro de ASP Clásico en Foros del Web. Hola, soy nuevo en esto del ASP Clasico, espero me puedan ayudar, tengo la siguiente situacion: el detalle que traigo es que si mando un ...
  #1 (permalink)  
Antiguo 24/09/2014, 10:21
 
Fecha de Ingreso: marzo-2009
Ubicación: MEXICO
Mensajes: 4
Antigüedad: 15 años
Puntos: 0
Pregunta ASP: error al enviar correo de mi server a hotmail o gmail

Hola, soy nuevo en esto del ASP Clasico, espero me puedan ayudar, tengo la siguiente situacion:

el detalle que traigo es que si mando un correo de mi servidor a una cuenta de Hotmail o gmail me marca lo siguiente: '8004020f'
/envio de correo/EnviaMail.asp, line 56



barro una tabla DE SQL que contiene el numero y el correo a donde se le va a enviar un attachment

En la tabla en este momento tengo 4 registros , los primeros tres son cuentas de la compañía que tienen cuenta en mi server y el cuarto registro es una cuenta de Hotmail, pero al llegar a esa cuenta me truena el programa y me manda el error:

En el código incluí unos response.write para ver que traían las variables y al parecer están ok, a los primeros tres usuarios les llega el archivo de maner correcta, a su correo pero al cuarto que tiene la cuenta de hotmail no le llega el correo, truena en el SEND y detecte que es cuando una cuenta es externa porque la cuenta ya la cambie al primer registro y en el primer registro truena, truena exactamente donde quiere mandar un correo a un servidor externo, saben ustedes que puedo hacer para que me los mande a los diferentes correos aunque no sean de mi compañia???? DE ANTEMANO GRACIAS POR LA ATENCIÓN PRESTADA A ESTE COREO, QUE TENGAn UN EXCELENTE DIA Y QUE DIOS LES BENDIGA!!!


ESTO ES LO QUE DESPLEGA AL TERMINAR DE CORRER MI ASP:

730084.pdf\\laescm80a\Intranet\HomePage\envio de correo\recibos\[email protected] 0055.pdf\\laescm80a\Intranet\HomePage\envio de correo\recibos\[email protected] 999.pdf\\laescm80a\Intranet\HomePage\envio de correo\recibos\[email protected] 898.pdf\\laescm80a\Intranet\HomePage\envio de correo\recibos\989898. [email protected] error '8004020f'
/envio de correo/EnviaMail.asp, line 56


Este es el código que tengo:

<%

' se conecta y barre tabla de usuarios a enviar correo de kiosko

dim strCom, rsCom
Dim connPresupuesto
Dim Nno 'no de nomina
dim ext 'extencion de archivo
dim arch 'nombre archivo
dim ruta
dim anexo


set connPresupuesto = Server.CreateObject("ADODB.Connection")
connPresupuesto = "Provider=SQLOLEDB.1;Password=laescm80a;Persis t Security Info=True;User ID=sa;Initial Catalog=Kiosk;Data Source=LOCALHOST"
set rsCom = CreateObject("ADODB.Recordset")
strcom ="SELECT * FROM TBLCORREO "
rsCom.Open strCom, connPresupuesto



do while not rsCom.EOF

'para el correo

sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "server.corp.myserver.com"
cdoConfig.fields.update

Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

if not rsCom("NUMEMP") = "" or not IsNull(rsCom("CORREO")) then

ruta = "\\laescm80a\Intranet\HomePage\envio de correo\recibos\"
Nno=rsCom("NUMEMP")
ext=".pdf"
arch= Nno & ext
anexo= ruta & arch
response.write arch
response.write anexo
RESPONSE.WRITE rsCom("CORREO")
cdoMessage.From = "NoReply@my server.com"
cdoMessage.To = rsCom("CORREO")
cdoMessage.Subject = "Prueba envio de correo "
cdoMessage.TextBody = "Buen dia: prueba correo "
cdoMessage.AddAttachment anexo
response.write "ok"
cdoMessage.Send “ AQUI MARCA EL ERROR cuando es una cuenta de correo de hotmail” error '8004020f'

end if
Set cdoMessage = nothing
rsCom.movenext

loop

%>
  #2 (permalink)  
Antiguo 24/09/2014, 10:26
 
Fecha de Ingreso: marzo-2009
Ubicación: MEXICO
Mensajes: 4
Antigüedad: 15 años
Puntos: 0
Respuesta: ASP: error al enviar correo de mi server a hotmail o gmail

Gracias de antemano a las personas que me puedan apoyar con este detalle

saludos!!!!!
  #3 (permalink)  
Antiguo 14/10/2014, 14:29
 
Fecha de Ingreso: febrero-2011
Mensajes: 85
Antigüedad: 13 años, 1 mes
Puntos: 3
Respuesta: ASP: error al enviar correo de mi server a hotmail o gmail

Hola buenas, yo utilizo CDONTS, y me funciona perfectamente con cualquier dominio, incluyendo hotmail y gmail.

A ver si te sireve esto:


On Error Resume Next
set mail=server.CreateObject("CDONTS.NewMail")
mail.From= Session("mailEnvio") ' De
mail.To = Session("mailTo") ' Para
mail.Subject = "Asunto"
mail.Body = "Mensaje del correo"
mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain
mail.MailFormat = 1 ' 0 = MIME, 1 = Text
mail.Importance = 1 ' 0 =High, 1 = Medium, 2 = Low
mail.Send

set mail=nothing

Saludos GRC

Última edición por computer_si; 14/10/2014 a las 14:30 Razón: corregir datos
  #4 (permalink)  
Antiguo 20/10/2014, 12:53
 
Fecha de Ingreso: marzo-2009
Ubicación: MEXICO
Mensajes: 4
Antigüedad: 15 años
Puntos: 0
Respuesta: ASP: error al enviar correo de mi server a hotmail o gmail

gracias GRC, deja lo reviso y te pongo al tanto si funciono.

saludos!!!!

lujanoro
  #5 (permalink)  
Antiguo 20/10/2014, 13:03
 
Fecha de Ingreso: marzo-2009
Ubicación: MEXICO
Mensajes: 4
Antigüedad: 15 años
Puntos: 0
Respuesta: ASP: error al enviar correo de mi server a hotmail o gmail

gracias GRC, deja lo reviso y te pongo al tanto si funciono.

saludos!!!!

lujanoro

Etiquetas: asp, correo, gmail, hotmail, pdf, server, sql
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




La zona horaria es GMT -6. Ahora son las 10:23.