Sería posible leer correos con CDO en Visual Foxpro 9.0 y Cómo hacerlo?

[Manuel Marin Montalvan]

He buscado por todo Internet y no he podido encntrar na manera de leer y/o recepcionar el correo electronico desde gmail o hotmail mediante el componente del Windows CDO

[Rodolfo Ortiz González]

Hola Manuel.

Prueba esto a ver que tal, a mi me funciona sin problemas, saludos!

LOCAL loCfg, loMsg, lcFile, loErr

TRY

  loCfg = CREATEOBJECT("CDO.Configuration")

  WITH loCfg.Fields

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "TU SMP"

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 && ó 587

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = .T.

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .T.

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "TU CORREO"

    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "TU CONTRASEÑA"

    .Update

  ENDWITH

  loMsg = CREATEOBJECT ("CDO.Message")

*  CTMAIL='rod...@hotmail.com'

  WITH loMsg

    .Configuration = loCfg

    *-- Remitenete y destinatarios

    .From = "ori...@hotmail.com>"

    .To = "<"+ALLTRIM(CTMAIL)+'>"' &&  cuenta destino

    *- Notificación de lectura

    .Fields("urn:schemas:mailheader:disposition-notification-to") = .From

    .Fields("urn:schemas:mailheader:return-receipt-to") = .From

    .Fields.Update

    *-- Tema

    .Subject = "titulo "

.TextBody = "titulo"

*    .Subject = "" 

    *-- Formato HTML desde la Web

*    .CreateMHTMLBody("http://comunidadvfp.blogspot.com/p/acerca-de.html", 0)

*    *-- Archivo adjunto

    lcFile = fa

    facel="'"+fa+'.pdf'+"'"

    facel1="'"+fa+'.XML'+"'"

    unidad=sys(5)

    directo=curdir()

    rut=unidad+directo+'COMPROBANTES\'+&facel      &&  adjunto-1

    rut1=unidad+directo+'COMPROBANTES\'+&facel1   &&  adjunto-2

    IF NOT EMPTY(lcFile)

      .AddAttachment(rut)

      LCFILE=facel

      .AddAttachment(rut1)

    ENDIF    

    *-- Envio el mensaje

    

    .Send()

  ENDWITH

CATCH TO loErr 

  MESSAGEBOX("No se pudo enviar el mensaje" + CHR(13) + ;

    "Error: " + TRANSFORM(loErr.ErrorNo) + CHR(13) + ;

    "Mensaje: " + loErr.Message , 16, "Error")

FINALLY

  loMsg = NULL

  loCfg = NULL

ENDTRY

[Manuel Marin Montalvan]

Muy bien, pues muchas gracias por el código, pero yo estoy tratando de saber y sobre todo cómo poder leer el correo que llega a mi cuenta de correo en gmail mediante visua foxpro, ya lo intente de todos los modos, pero la mayoría requeire outlook, pero yo necesito realizarlo con CDO de Windows, totalmente independiente del outlook. Si pudieran ayudarme con eso, realmente so los agradecería infiniamente. Gracias de todos modos Rodolfo.