kapiaba Posted October 11, 2011 Report Share Posted October 11, 2011 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22543&p=120700#p120215 // Testing FiveWin new Internet incoming mail (POP3 protocol) Class #include "FiveWin.ch" static oWnd //----------------------------------------------------------------------------// function Main() local oBar DEFINE WINDOW oWnd TITLE "Receiving Internet Mail from FiveWin" DEFINE BUTTONBAR oBar _3D OF oWnd DEFINE BUTTON OF oBar ACTION GetMail() TOOLTIP "Get Mail" SET MESSAGE OF oWnd TO "Ready" NOINSET DATE TIME KEYBOARD ACTIVATE WINDOW oWnd return nil //----------------------------------------------------------------------------// function GetMail() local oInMail local cIp if WsaStartup() == 0 cIp := gethostbyname( "pop.gmail.com" ) WsaCleanUp() endif oWnd:SetMsg( "Geting Internet email..." ) oInMail = TPop4():New( cIp,, "miusuario", "miclave" ) oInMail:bConnecting = { || oWnd:SetMsg( "Connecting to " + cIp ) } oInMail:bConnected = { || oWnd:SetMsg( "Connected" ) } oInMail:bDone = { || ReadEmails( oInMail ) } oInMail:GetMail() return nil //----------------------------------------------------------------------------// function ReadEmails( oInMail ) local n, cTxt := "" MsgInfo( "Total emails: " + Str( Len( oInMail:aMsgs ) ) ) for n = 1 to Len( oInMail:aMsgs ) cTxt += oInMail:aMsgs[ n ] + CRLF + "--- FINAL DE ESTE MAIL ---" + CRLF next memowrit( "email.txt", cTxt ) return nil //----------------------------------------------------------------------------// id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 11, 2011 Author Report Share Posted October 11, 2011 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22543&p=120700#p120215 // Testing FiveWin new Internet incoming mail (POP3 protocol) Class #include "FiveWin.ch" static oWnd //----------------------------------------------------------------------------// function Main() local oBar DEFINE WINDOW oWnd TITLE "Receiving Internet Mail from FiveWin" DEFINE BUTTONBAR oBar _3D OF oWnd DEFINE BUTTON OF oBar ACTION GetMail() TOOLTIP "Get Mail" SET MESSAGE OF oWnd TO "Ready" NOINSET DATE TIME KEYBOARD ACTIVATE WINDOW oWnd return nil //----------------------------------------------------------------------------// function GetMail() local oInMail local cIp if WsaStartup() == 0 cIp := gethostbyname( "pop.gmail.com" ) WsaCleanUp() endif oWnd:SetMsg( "Geting Internet email..." ) oInMail = TPop4():New( cIp,, "miusuario", "miclave" ) oInMail:bConnecting = { || oWnd:SetMsg( "Connecting to " + cIp ) } oInMail:bConnected = { || oWnd:SetMsg( "Connected" ) } oInMail:bDone = { || ReadEmails( oInMail ) } oInMail:GetMail() return nil //----------------------------------------------------------------------------// function ReadEmails( oInMail ) local n, cTxt := "" MsgInfo( "Total emails: " + Str( Len( oInMail:aMsgs ) ) ) for n = 1 to Len( oInMail:aMsgs ) cTxt += oInMail:aMsgs[ n ] + CRLF + "--- FINAL DE ESTE MAIL ---" + CRLF next memowrit( "email.txt", cTxt ) return nil //----------------------------------------------------------------------------// id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ZECA Posted October 11, 2011 Report Share Posted October 11, 2011 Bom dia Kapiaba!!! Não está faltando a classe TPOP4 ? Sds Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 11, 2011 Author Report Share Posted October 11, 2011 citação:Bom dia Kapiaba!!! Não está faltando a classe TPOP4 ? Sds Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP id=quote>id=quote>Olá, não testei ainda, mas mesmo assim, perguntei ao autor do programa, vamos esperar... Abs, João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ZECA Posted October 11, 2011 Report Share Posted October 11, 2011 citação: citação:Bom dia Kapiaba!!! Não está faltando a classe TPOP4 ? Sds Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP id=quote>id=quote>Olá, não testei ainda, mas mesmo assim, perguntei ao autor do programa, vamos esperar... Abs, João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Blz!!! Uma piadinha infame. Voce sabia que o STEVE JOBS é brasileiro? Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 11, 2011 Author Report Share Posted October 11, 2011 http://br.answers.yahoo.com/question/index?qid=20111006040531AAPIXE4 João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ZECA Posted October 11, 2011 Report Share Posted October 11, 2011 citação:http://br.answers.yahoo.com/question/index?qid=20111006040531AAPIXE4 João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Não Cara!!! Steve Jobs criou Iphone,Ipad,ipod.... Estou desconfiado que foi ele quem descobriu o AIPIM. Diante disto chego a conclusão que ele é brasileiro Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 11, 2011 Author Report Share Posted October 11, 2011 João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Theotokos Posted October 12, 2011 Report Share Posted October 12, 2011 Parece ter uma arquivo TPOP4.OBJ para compilar... alguem conhece e/ou tem para compartilhar ? citação:http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22543&p=120700#p120215 // Testing FiveWin new Internet incoming mail (POP3 protocol) Class #include "FiveWin.ch" static oWnd //----------------------------------------------------------------------------// function Main() local oBar DEFINE WINDOW oWnd TITLE "Receiving Internet Mail from FiveWin" DEFINE BUTTONBAR oBar _3D OF oWnd DEFINE BUTTON OF oBar ACTION GetMail() TOOLTIP "Get Mail" SET MESSAGE OF oWnd TO "Ready" NOINSET DATE TIME KEYBOARD ACTIVATE WINDOW oWnd return nil //----------------------------------------------------------------------------// function GetMail() local oInMail local cIp if WsaStartup() == 0 cIp := gethostbyname( "pop.gmail.com" ) WsaCleanUp() endif oWnd:SetMsg( "Geting Internet email..." ) oInMail = TPop4():New( cIp,, "miusuario", "miclave" ) oInMail:bConnecting = { || oWnd:SetMsg( "Connecting to " + cIp ) } oInMail:bConnected = { || oWnd:SetMsg( "Connected" ) } oInMail:bDone = { || ReadEmails( oInMail ) } oInMail:GetMail() return nil //----------------------------------------------------------------------------// function ReadEmails( oInMail ) local n, cTxt := "" MsgInfo( "Total emails: " + Str( Len( oInMail:aMsgs ) ) ) for n = 1 to Len( oInMail:aMsgs ) cTxt += oInMail:aMsgs[ n ] + CRLF + "--- FINAL DE ESTE MAIL ---" + CRLF next memowrit( "email.txt", cTxt ) return nil //----------------------------------------------------------------------------// id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 13, 2011 Author Report Share Posted October 13, 2011 As respostas estão no Link do Forum internacional, veja acima. Abs João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.