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 | Expand

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 ] )   nextreturn 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