Code: Select all
function PegaMail()
local oInMail
cIP := GetHostByName( "pop.inteligence.com.br")
oInMail = TPop3():New( cIp,, "matheus@inteligence.com.br", "m941201" ) // mail server IP
oInMail:bConnecting = { || msginfo( "Connecting to 194.224.203.2..." ) }
oInMail:bConnected = { || msginfo( "Connected" ) }
oInMail:bDone = { || ReadEmails( oInMail ) }
?"Aqui"
oInMail:GetMail()
return nil
//----------------------------------------------------------------------------//
function ReadEmails( oInMail )
local n
? "Aqui"
MsgInfo( "Total emails: " + Str( Len( oInMail:aMsgs ) ) )
for n = 1 to Len( oInMail:aMsgs )
MsgInfo( oInMail:aMsgs[ n ] )
next
return nil