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
![Surprised :o](./images/smilies/icon_surprised.gif)
![Laughing :lol:](./images/smilies/icon_lol.gif)