Dll para leer pop3 gmail
Posted: Sat Jun 06, 2015 4:40 am
Hola buenas tardes
le anexo una dll para leer correos pop3
la saque de http://hpop.sourceforge.net/
lo pueden bajar en http://www.eleben.com.mx/gmail.zip
ejemplo de uso
hay que registrar la dll ClassLibrary2.dll
con r.bat
le anexo una dll para leer correos pop3
la saque de http://hpop.sourceforge.net/
lo pueden bajar en http://www.eleben.com.mx/gmail.zip
ejemplo de uso
- Code: Select all Expand view
- // Pruebas
// benjamin casarrubias moreno
// chino72vale@hotmail.com
// 05/06/2015
#include "FiveWin.ch"
static lsigue, nomdire, osrv, odlg, obenito, olbx
Function main()
LOCAL I, ncorreos
local n:=0, y
local cadjuntos:={}
local oeleben
set epoch to 1990
set century on
set date italian
set delete oN
sethandlecount(450)
set _3dlook on
/// leer correos de gmail
TRY
oeleben := CreateObject( "ClassLibrary2.Class1" )
? "entro a leer correos de gmail "
CATCH
? "entro "
END
if oeleben:eleconecion("pop.gmail.com",995,.t.) //pop, puerto, ssl= .t. o .f.
? "entro a la conexion "
else
? "no entro a la conexion no paso la prueba"
return nil
endif
if oeleben:eleusuario("xxxx@gmail.com","xxxxx") //usuarioa contrase@a
? "entro a la autentificacion"
else
? "no entro a la autentificacion"
return nil
endif
ncorreos:=oeleben:registros()
? "numero de correos ",ncorreos
for i:=1 to ncorreos
? oeleben:headerfrom(i)
? oeleben:headerdate(i)
? oeleben:headersubject(i)
? oeleben:headertextversion(i)
? oeleben:headerhtmlversion(i)
cadjuntos:=obtadjuntos(oeleben:headeradjuntos(i))
? " adjuntos ", oeleben:headeradjuntos(i)
? "numero de adjuntos", len(cadjuntos)
for n:=1 to len(cadjuntos) // imprimir nombre de adjuntos y se graba en el directorio dode corre el programa
? cadjuntos[n], n
next n
next i
? "desconexion",oeleben:desconectar()
? "termino we"
Return NIl
function obtadjuntos(xnombres)
local adev:={}
local dev:=""
local i:=0
for i:=1 to len(xnombres)
if substr(xnombres,i,1)="|"
aadd(adev,dev)
dev:=""
else
dev:=dev+substr(xnombres,i,1)
endif
next i
return adev
hay que registrar la dll ClassLibrary2.dll
con r.bat