A mi no me da error en Windows 7, esta rutina es de Guayan de Portal Fox. No será un tema de permisos?
Podes trascribir exactamente el error que te da para poder ayudarte. Saludos, Pancho Cordoba El 26 de septiembre de 2011 11:06, Asociación Mutual Club Unión < [email protected]> escribió: > ** > Estimados > > Tengo una rutina para el envío de correos desde visual fox usando cdo , > seguramente copiada > de la página de portalfox usándose hace varios años sin problemas. > > El inconveniente surge ahora con pcs con windows 7, > **que me da error en el metodo send ya sea que** > **** > *** da error de protocolo en la capa de transporte ** > *** se tilda la pc** > **** > **Alguien le ha pasado?** > **Han solucionado este tema de alguna manera?** > **Alternativas con codigo puramente fox?** > **** > **Saludos.** > **** > **César.-** > **** > **** > **** > ** > > loCfg = > CREATEOBJECT("CDO.Configuration") > > WITH > loCfg.Fields > > .Item("*http://schemas.microsoft.com/cdo/configuration/smtpserver";) = > cHost* > > . > Item("*http://schemas.microsoft.com/cdo/configuration/smtpserverport";) = > 25* > > . > Item("*http://schemas.microsoft.com/cdo/configuration/sendusing";) = 2* > > . > Item("*http://schemas.microsoft.com/cdo/configuration/sendusername";) = > cMail* > > . > Item("*http://schemas.microsoft.com/cdo/configuration/sendpassword";) = > cPass* > > . > Item("*http://schemas.microsoft.com/cdo/configuration/smtpauthenticate";) = > .T.* > > IF AT("gmail",cmail) > 0 > > . > Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl";) = .T. > > endif > > .Update > > ENDWITH > > loMsg = CREATEOBJECT ("CDO.Message") > > WITH loMsg > > .Configuration = loCfg > > . > From = cMail > > . > To = cMailrecibe > > .Bcc = cMailRecibeOculto > > .Subject = cAsunto > > .TextBody = cCuerpo > > * .AddAttachment(cAdjunto) > > IF NOT EMPTY(cAdjunto) > > .AddAttachment(cAdjunto) > > ENDIF > > TRY > > .Send() > > CATCH TO > loErr > > cMens = > ALLTRIM(loErr.Message) > > IF not lNoMuestraMens > > mensaje("No se pudo enviar el mensaje" + > CHR(13) + ; > > "Error: " + > TRANSFORM(loErr.ErrorNo) + CHR(13) + ; > > "Mensaje: " + loErr. > Message , 1,1) > > * cMens = ALLTRIM(loErr.Message) > > ENDIF > > lvar = .f. > > FINALLY > > loMsg = NULL > > loCfg = NULL > > ENDTRY > > * .AddAttachment("C:\Imagenes\Foto2.jpg") > > *.AddAttachment("C:\Imagenes\Foto3.jpg") > > lVar = .t. > > cMens = "Mensaje enviado" > > ENDWITH** >
