Leer mails

[Enrrique Vertiz]

Estimados, consulta

He tratado con la ayuda de la IA de crear una funcion para leer correos, de una cuenta nuestra, pop3, gmail, en fin lo ideal desde cualquier cuenta, la idea es leer el asunto, contenido y descargar el archivo adjunto para automatizar un proceso ... pero el codigo que me dan da errores y lo que usan TSocket o Curl no es algo que maneje muy bien ... alguien tendra un ejemplo de como leer correos ?
Gracias

[Antonio Linares]

Estimado Enrique,

En FWH 25.01 en la carpeta FWH\samples\gmail\ tienes un ejemplo completo testgmail.prg desarrollado por Lailton.

Si no tienes dicha carpeta, contacta conmigo por whatsapp y te la facilito.

[Enrrique Vertiz]

Gracias, no la tengo, ya te escribi

[Enrrique Vertiz]

Saludos Antonio

Me sale error al compilar Testgmail, el mismo con xHarbour y Harbour, pregunte a la IA y me dice que revise el archivo prsht.h que es de Borland 77 ??, pero este mensaje solo sale con este prg, compile todos los samples y compilan casi todos y algunos dan error, pero no este, que podra ser ?? (abajo la line de error)

Error prsht.h 918 9: '#endif' before '#if'
* Linking errors *

[Antonio Linares]

Enrique,

Modifica testgmail.rc así:

Code: Select all | Expand

#include <windows.h>

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

GMAIL DIALOGEX DISCARDABLE 6, 18, 346, 78
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "GMAIL oAUTH"
FONT 8, "Tahoma"
{
  CONTROL "Connect with Gmail", 4001, "Button", WS_TABSTOP, 103, 21, 140, 36
  CONTROL "", 4002, "Static", SS_BITMAP|SS_CENTERIMAGE|WS_BORDER, 8, 8, 60, 60
  CONTROL "This is a label:", 4003, "Static", WS_GROUP, 76, 8, 200, 8
  CONTROL "This is a label:", 4004, "Static", WS_GROUP, 76, 24, 200, 8
  CONTROL "Disconnect", 4005, "Button", WS_TABSTOP, 80, 52, 56, 14
  CONTROL "Send Mail", 4006, "Button", WS_TABSTOP, 280, 4, 58, 20
}

y copia libcurl.dll desde FWH\samples a esa carpeta

[Antonio Linares]

Para construirlo:

go.bat

Code: Select all | Expand

set path=c:\bcc77\bin
c:\harbour\bin\win\bcc\hbmk2 testgmail.hbp -comp=bcc

testgmail.hbp

Code: Select all | Expand

-gui

-Ic:\fwh\include

testgmail.prg
testgmail.rc

-Lc:\fwh\lib
-lFiveH
-lFiveHC

xhb.hbc
hbct.hbc
hbmzip.hbc
hbziparc.hbc
hbcurl.hbc

[Enrrique Vertiz]

Gracias, ya compilo, vamos a cambiar las credenciales y probar.

[FiveWiDi]

Gracias, ya compilo, vamos a cambiar las credenciales y probar.

Hola Enrrique,

He visto tu mensaje y yo ahora estoy con esto de leer mails y sus adjuntos.

¿Conseguiste leer mails y extraer sus adjuntos?

¿Tu cuenta es gmail, verdad?
¿Lo probaste con alguna cuenta que no sea gmail?

¿Trabajas con FWH32 o con FWH64?

Gracias,

[Enrrique Vertiz]

Saludos Carlos

No lo llegue a probar, tengo una libreria chilkat y con ella trabaje el tema

[FiveWiDi]

Saludos Carlos

No lo llegue a probar, tengo una libreria chilkat y con ella trabaje el tema

Muchas gracias Enrrique,

De hecho ahora iba a comunicar que he podio leer mail, pero me falta extraer el adjunto (un texto plano txt).

Voy investigar como extraer el adjunto.
La solución fácil (yo me lo guiso, yo me lo como) será meter el texto en el mail y buscarlo en el mail leído. Voy a ver.

[Lautaro]

Hola

Por si les sirve, aca uso turl + TIpclientPop para conectarme y leer correos ( de una cuenta pop3 , gmail tambien funciona asi ), y una vez tenemos los correos, los leo con la clase tipmail, con esa clase tienes acceso a todos los elementos del email recibido y sus adjuntos.

Saludos,

Lautaro