FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Leer mails
Enrrique Vertiz
Posts: 582
Joined: Fri Oct 07, 2005 02:17 PM
Leer mails
Posted: Sat Mar 08, 2025 01:20 AM

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

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Leer mails
Posted: Sat Mar 08, 2025 07:23 AM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Enrrique Vertiz
Posts: 582
Joined: Fri Oct 07, 2005 02:17 PM
Re: Leer mails
Posted: Sat Mar 08, 2025 02:55 PM

Gracias, no la tengo, ya te escribi

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m
Enrrique Vertiz
Posts: 582
Joined: Fri Oct 07, 2005 02:17 PM
Re: Leer mails
Posted: Sun Mar 09, 2025 11:51 PM

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 *
Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Leer mails
Posted: Mon Mar 10, 2025 10:16 AM
Enrique,

Modifica testgmail.rc así:
Code: Select all Collapse
#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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Leer mails
Posted: Mon Mar 10, 2025 10:20 AM
Para construirlo:

go.bat
Code: Select all Collapse
set path=c:\bcc77\bin
c:\harbour\bin\win\bcc\hbmk2 testgmail.hbp -comp=bcc
testgmail.hbp
Code: Select all Collapse
-gui

-Ic:\fwh\include

testgmail.prg
testgmail.rc

-Lc:\fwh\lib
-lFiveH
-lFiveHC

xhb.hbc
hbct.hbc
hbmzip.hbc
hbziparc.hbc
hbcurl.hbc
regards, saludos

Antonio Linares
www.fivetechsoft.com
Enrrique Vertiz
Posts: 582
Joined: Fri Oct 07, 2005 02:17 PM
Re: Leer mails
Posted: Mon Mar 10, 2025 12:55 PM

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

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m
FiveWiDi
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM
Re: Leer mails
Posted: Wed Feb 11, 2026 11:15 AM
Enrrique Vertiz wrote:

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,

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Enrrique Vertiz
Posts: 582
Joined: Fri Oct 07, 2005 02:17 PM
Re: Leer mails
Posted: Wed Feb 11, 2026 03:36 PM

Saludos Carlos

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

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m
FiveWiDi
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM
Re: Leer mails
Posted: Wed Feb 11, 2026 03:43 PM
Enrrique Vertiz wrote:

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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Lautaro
Posts: 337
Joined: Fri Oct 07, 2005 02:44 PM
Re: Leer mails
Posted: Fri Feb 13, 2026 07:06 PM

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

Hola,

Soy un Contador que por necesidad aprendio a programar y se quedo programando.

Continue the discussion

Static archive · New replies & topics via GitHub Discussions