Presentacion y solucitud de ayuda

[paimar]

Buenas.

Me presento un poco. Escribo desde España y programo en clipper mi propia aplicación la cual aun se usa y mantengo. Ya he intentado mas de una vez pasarla a "windows" , en Visual Fox pro y HMG para siempre me acabo atascando (sobre todo por mi cabezoneria de intentar hacer un programa windows lo mas parecido posible a uno DOS) . Ahora parece que lo intentare de nuevo poco a poco.

Pero ahora mientras repaso ejemplos se me ocurrió hacer una pequeña utilidad. Lo que pretendo no parece muy difícil , lo que pretendo es que la utilidad compruebe cada x minutos un cuenta de correo para el el subject de ese email leer un "filtro" y que la aplicación devuelva a ese mismo email el listado solicitado. Lo único que no consigo hacer es leer el ultimo correo de gmail de una cuenta. He probado algún ejemplo que he buscado en el foro pero no me hace absolutamente nada (parece solo harbour).

Me echaríais una mano?

Muchas gracias.

[danielmaximiliano]

Hola Paimar:
Bienvenido al Foro, aqui encontraras amigos que gustosos te daran un mano.
para ello no unico necesario es que publiques un ejemplo que lo que necesitas o quieres hacer.

Desde Bs.As Argentina

[paimar]

Buenas

He empezado a modificar este ejemplo sustituyendo mailaccount por mi direccion de gmail , pass por mi clave y pop.server.com por pop3.gmail.com. He puesto un msginfo despues de IF .not. opop:open() y me da error: Connection error: Timeout

Alguna sugerencia?


gracias

// The example outlines the steps required for retrieving all
// eMails from a POP mail server and how to decompose
// incoming mail messages.

PROCEDURE Main
LOCAL oPop, oPart, aParts, oTIpMail, aEmails, i

oPop := TIpClientPop():new( "pop://mailaccount:password@pop.server.com" )

IF .NOT. oPop:open()
? "Connection error:", oPop:lastErrorMessage()
QUIT
ELSE
aEMails := oPop:retrieveAll()
oPop:close()
ENDIF

FOR i:=1 TO Len( aEMails )
oTIpMail := aEmails
? oTIpMail:getFieldPart( "From" )
? oTIpMail:getFieldPart( "Subject" )

IF oTIpMail:isMultiPart()
// Retrieve all parts of a multipart message
aParts := oTIpMail:getMultiParts()

FOR EACH oPart IN aParts
IF .NOT. Empty( oPart:getFileName() )
// This is a file attachment. Store it in the TMP folder.
IF oPart:detachFile( "C:\tmp\" )
? "File written: C:\tmp\" + oPart:getFileName()
ENDIF
ELSE
? oPart:getBody()
ENDIF
NEXT
ELSE
// simple mail message
? oTIpMail:getBody()
ENDIF
NEXT

RETURN

[danielmaximiliano]

Buenas

He empezado a modificar este ejemplo sustituyendo mailaccount por mi direccion de gmail , pass por mi clave y pop.server.com por pop3.gmail.com. He puesto un msginfo despues de IF .not. opop:open() y me da error: Connection error: Timeout

Alguna sugerencia?


gracias

// The example outlines the steps required for retrieving all
// eMails from a POP mail server and how to decompose
// incoming mail messages.

PROCEDURE Main
LOCAL oPop, oPart, aParts, oTIpMail, aEmails, i

oPop := TIpClientPop():new( "pop://mailaccount:password@pop.server.com" )

IF .NOT. oPop:open()
? "Connection error:", oPop:lastErrorMessage()
QUIT
ELSE
aEMails := oPop:retrieveAll()
oPop:close()
ENDIF

FOR i:=1 TO Len( aEMails )
oTIpMail := aEmails
? oTIpMail:getFieldPart( "From" )
? oTIpMail:getFieldPart( "Subject" )

IF oTIpMail:isMultiPart()
// Retrieve all parts of a multipart message
aParts := oTIpMail:getMultiParts()

FOR EACH oPart IN aParts
IF .NOT. Empty( oPart:getFileName() )
// This is a file attachment. Store it in the TMP folder.
IF oPart:detachFile( "C:\tmp\" )
? "File written: C:\tmp\" + oPart:getFileName()
ENDIF
ELSE
? oPart:getBody()
ENDIF
NEXT
ELSE
// simple mail message
? oTIpMail:getBody()
ENDIF
NEXT

RETURN

Hola Paimar:
este tema fue tratado en otro Post viewtopic.php?f=5&t=1518&start=0

Re: hb_sendmail()

Roberto Lopez wrote:

Anyway, there is a way to know the error code, to find what exactly is happening?

I've activated trace and I've found the error 512.

If someone can successfully access gmail smtp, please, let me know.

At the moment, I'm using blat. It connects google without problems.

Roberto,
Grigory Filatov wrote:
AFAIR you will need to recompile the Harbour contrib hbtip library with HB_HAS_OPENSSL option for SSL support.

todavia no encontre la forma de hacer funcionar HBTip con SSL, pero mira el link anterior en la pagina 2, trata de mail con
CDOSYS (Collaboration Data Objects) .

[paimar]

Hola de nuevo.

Entonces quieres decir que no se puede hacer?


un saludo

[salamandra]

Hi paimar ,
Did you try the code submitted by danielmaximiliano ??
(CDOSYS -Collaboration Data Objects).

take a look at viewtopic.php?f=5&t=1518&start=10

Works fine with GMail, Hotmail, Yahoo, etc.


[]´s Salamandra

[danielmaximiliano]

Hola de nuevo.

Entonces quieres decir que no se puede hacer?


un saludo

Hola de nuevo Paimar, sigo mirando la forma de compilar HBtip con soporte SSL, ya que Gmail y otros servidores usan este protocolo para transferir los datos.

no es muy dificil pero tampoco facil ya que al intentar compilar SSL desde el SVN me da errores,

[paimar]

Pues gracias! Yo espero con impaciencia. Lo necesito para poder interrogar al programa y que me devuelta por email los listados o estadisticas que lo pido.

Un saludo

[danielmaximiliano]

Pues gracias! Yo espero con impaciencia. Lo necesito para poder interrogar al programa y que me devuelta por email los listados o estadisticas que lo pido.

Un saludo

Estoy terminando la aplicacion, me falta resolver como recuperar el ID del mensaje se me esta siendo dificil ya que no devuelve valores numericos o un array, sino que devuelve un String separado con un caracter INetcrlf().