ultimamente mucha gente sigue teniendo problemas con los servidores POP con soporte SSL.
para que el ejemplo funcione es necesario tener instalado OpenSSL se puede descargar desde aqui.
recordar que para el caso de Gmail es necesario entrar al panel de control de la cuenta y habilitar POPWin32 OpenSSL v1.0.1e Light : Version simple
Win32 OpenSSL v1.0.1e : Version completa para desarrolladores
Todavia contiene algunos errores que son solucionables.buscar "Habilitar Pop Gmail" mediante Google.com para mas precisión
1) al adjuntar archivos mediante
Code: Select all
/*****************************************************************************/
Procedure SelectaFile()
/*****************************************************************************/
aAFileSend := Getfile ( { {'All Files','*.*'} } , 'Select File(s) Attachment' ;
, cCurrentFolder +'\Attachment' , .t. , .f. )
Return
por el codigo mostrado arriba, tampoco permite sobreescribir el mismo.
Code: Select all
IF .NOT. oPart:detachFile( cCurrentFolder+'\Attachment' )
MsgExclamation('Could not save the file : ' + oPart:getFileName() , ' !! Warning Message ¡¡ ' )
ENDIF
2) al hacer doble click en el grid para recuperar el mensaje / email el mismo presenta el contenido pero dice
"Plain Text" siendo que es "HTML", al hacer otra vez doble click presenta su contenido correctamente.
3) Los contenidos HTML con adjunto permite su descarga pero el cuerpo de mensaje / email no es mostrado.
a pesar que consulte en la lista de Harbour User no encontre repuesta a mis consulta ya que puede ser que nadie
tenga experiencia en la libreria HBTIP, que es dificil su uso y no se encuentra una documentacion sobre el uso de
la misma.
4) Mi archivo C:\hmg.3.1.1\hmg.hbc contiene las siguiente inclusiones
Code: Select all
libs=hbssl
libs=libeay32
libs=ssleay32
Libs=hbtip
Libs=hbtipssl
Code: Select all
//#define COMPILE_HMG_UNICODE
***********************************************
Mi humilde aporte para HMGforum
Codigo fuente : ***********************************************
*****************************************************************
************************ Translate Google *************************
*****************************************************************
Hi all:
lately a lot of people still have problems with POP servers support SSL.
for the example to work you must have OpenSSL can be downloaded from here.
remember that in the case of Gmail is necessary to go to control panel and enable POP accountWin32 OpenSSL v1.0.1e Light : Simple version
Win32 OpenSSL v1.0.1e : Full Version Developer
Still contains some errors that are fixable.find "Enable Gmail Pop" by Google.com for more accuracy
1) to attach files by
Code: Select all
/*****************************************************************************/
Procedure SelectaFile()
/*****************************************************************************/
aAFileSend := Getfile ( { {'All Files','*.*'} } , 'Select File(s) Attachment' ;
, cCurrentFolder +'\SelectAFile' , .t. , .f. )
Return
by the code above, it does not allow overwriting.
Code: Select all
IF .NOT. oPart:detachFile( cCurrentFolder+'\Attachment' )
MsgExclamation('Could not save the file : ' + oPart:getFileName() , ' !! Warning Message ¡¡ ' )
ENDIF
2) when you double click on the grid to retrieve the message / email the same content presented but says
"Plain Text" is being "HTML", when you double click again presents its contents properly.
3) The contents HTML attachment allows downloading but the body of message / email is not shown.
although consult the list of User Harbour did not find answer to my query as it may be that no
has experience HBTIP library, which is difficult to use and not found a documentation on the use of
thereof.
4) My file C:\hmg.3.1.1\hmg.hbc contains the following inclusions
Code: Select all
libs=hbssl
libs=libeay32
libs=ssleay32
Libs=hbtip
Libs=hbtipssl
Code: Select all
//#define COMPILE_HMG_UNICODE
*******************************************************
My humble contribution to HMGforum
Source Code : *******************************************************