tpop3 Help Use

[Matheusfarias]

I have a small problem using the class tpop3, down below in the source code of my program

Code: Select all  Expand view

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
 

I wanted Catch the email with attachment and download them, then delete them. As I do this, a light please