Page 1 of 1
Leer mails
Posted: Sat Mar 08, 2025 1:20 am
by 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
Re: Leer mails
Posted: Sat Mar 08, 2025 7:23 am
by 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.
Re: Leer mails
Posted: Sat Mar 08, 2025 2:55 pm
by Enrrique Vertiz
Gracias, no la tengo, ya te escribi
Re: Leer mails
Posted: Sun Mar 09, 2025 11:51 pm
by 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 *
Re: Leer mails
Posted: Mon Mar 10, 2025 10:16 am
by 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
Re: Leer mails
Posted: Mon Mar 10, 2025 10:20 am
by 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
Re: Leer mails
Posted: Mon Mar 10, 2025 12:55 pm
by Enrrique Vertiz
Gracias, ya compilo, vamos a cambiar las credenciales y probar.