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
