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