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.
- Code: Select all Expand view
- // 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
//----------------------------------------------------------------------------//
