Hola amigos, estoy utilizando la clase Tpop3 para recibir correos de forma muy c贸moda pero me encuentro con un cliente que utiliza correo de gmail.
El problema, por lo que veo, es que gmail requiere una conexi贸n SSL para funcionar. 驴Alguien se ha encontrado con este problema? El env铆o de correos v铆a CDO me funciona sin problemas, pero en este caso necesito recibirlos.
Gracias!
PD. Estoy probando con el testpop3 de la carpeta samples.
El problema, por lo que veo, es que gmail requiere una conexi贸n SSL para funcionar. 驴Alguien se ha encontrado con este problema? El env铆o de correos v铆a CDO me funciona sin problemas, pero en este caso necesito recibirlos.
Gracias!
PD. Estoy probando con el testpop3 de la carpeta samples.
// Testing FiveWin new Internet incoming mail (POP3 protocol) Class
#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
聽 聽local oBar
聽 聽DEFINE WINDOW oWnd TITLE "Receiving Internet Mail from FiveWin"
聽 聽DEFINE BUTTONBAR oBar _3D OF oWnd
聽 聽DEFINE BUTTON OF oBar ACTION GetMail() TOOLTIP "Get Mail"
聽 聽SET MESSAGE OF oWnd TO "Ready" NOINSET DATE TIME KEYBOARD
聽 聽ACTIVATE WINDOW oWnd
return nil
//----------------------------------------------------------------------------//
function GetMail()
聽 聽local oInMail
聽 聽oWnd:SetMsg( "Geting Internet email..." )
聽 聽oInMail = TPop3():New( <ip>, <puerto>, <user>, <pass> ) 聽// mail server IP
聽 聽oInMail:lDelMsgs:=.F.
聽 聽oInMail:bConnecting = { || oWnd:SetMsg( "Connecting ..." ) }
聽 聽oInMail:bConnected 聽= { || oWnd:SetMsg( "Connected" ) }
聽 聽oInMail:bDone 聽 聽 聽 = { || ReadEmails( oInMail ) }
聽 聽oInMail:GetMail()
return nil
//----------------------------------------------------------------------------//
function ReadEmails( oInMail )
聽 聽local n
聽 聽MsgInfo( "Total emails: " + Str( Len( oInMail:aMsgs ) ) )
聽 聽for n = 1 to Len( oInMail:aMsgs )
聽 聽 聽 MsgInfo( oInMail:aMsgs[ n ] )
聽 聽next
return nil
//----------------------------------------------------------------------------//Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4