tpop3 Help Use

Post Reply
User avatar
Matheusfarias
Posts: 17
Joined: Mon Sep 10, 2012 1:55 pm
Location: João Pessoa/Paraiba/Brasil
Contact:

tpop3 Help Use

Post by Matheusfarias »

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

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
 
I wanted Catch the email with attachment and download them, then delete them. As I do this, a light please :o :lol:
Post Reply