Edvaldo1361303230 Posted September 20, 2011 Report Share Posted September 20, 2011 Ola Pessoal, Um cliente meu está querendo trabalhar com vendedores na rua tirando pedido e enviando via email pelo celular ou computador. Preciso de uma rotina para abrir estes emails. Fico grato se alguem puder ajudar. Já tenho rotina que envia emails. Obrigado Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted September 20, 2011 Author Report Share Posted September 20, 2011 Ola Pessoal, Um cliente meu está querendo trabalhar com vendedores na rua tirando pedido e enviando via email pelo celular ou computador. Preciso de uma rotina para abrir estes emails. Fico grato se alguem puder ajudar. Já tenho rotina que envia emails. Obrigado Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted September 20, 2011 Report Share Posted September 20, 2011 Ola Edvaldo, no VI congresso o José Carlos fez uma apresentação de como ler email, estou lhe mandando o arquivo PPT da apresentação dele, embora eu numca coloquei em pratica aqui... Obs: o certo e mais pratico neste caso é vc fazer a transferencia via FTP, de uma pesquisada no forum que vc ira encontrar bastante material para isto. Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 Quote Link to comment Share on other sites More sharing options...
miragerr Posted September 20, 2011 Report Share Posted September 20, 2011 Ola Só uma ideia, por que você não manda para um FTP... la fica melhor de fazer o tratamento. Espero que ajude Jackson Douglas Boa Vista FWH 11.05 Lamborguini ( isso voa gente ) PellesC+xH 1.2.1 + FAST REPORT + DBFCDX + SQL 100% email : miragerr@osite.com.br MSN : jackson_rl@hotmail.com SKYPE : jackson_rr Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted September 20, 2011 Author Report Share Posted September 20, 2011 Ok Luiz vou ver o PPT. No caso de jogar no FTP, como seria o controle (nome dos arquivos enviados)? Sendo que o cliente teria vários vendedores enviando emails via celular ou mesmo computador. Já tenho rotina que busca do FTP. Obrigado Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted September 21, 2011 Author Report Share Posted September 21, 2011 Ok Luiz estou não consegui receber o arquivo ainda. Edvaldo Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted September 21, 2011 Report Share Posted September 21, 2011 citação:Ok Luiz estou não consegui receber o arquivo ainda. Edvaldo id=quote>id=quote>passei para o automa.comercial@uol.com.br, mais recebi o mesmod e volta, me passe outro email Remote-MTA: dns; mfuol.mail.sys.intranet Diagnostic-Code: smtp; 550 RCPT TO: User unknown Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 Quote Link to comment Share on other sites More sharing options...
Dr_Microso Posted September 21, 2011 Report Share Posted September 21, 2011 Luiz, saudações! Fiquei curioso, poderia enviar-me o .PPT também? De repente colocar para os colegas no www.4shared.com ou em dicas poderia ser uma boa... Grato.id='Tahoma'> HbQt-FiveWin 6.12 "O sábio nem sempre diz tudo o que sabe, o tolo muitas vezes não sabe o que diz!" - Lao Tséid='Tahoma'> dr.microso@hotmail.com Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 21, 2011 Report Share Posted September 21, 2011 citação: citação:Ok Luiz estou não consegui receber o arquivo ainda. Edvaldo id=quote>id=quote>passei para o automa.comercial@uol.com.br, mais recebi o mesmod e volta, me passe outro email Remote-MTA: dns; mfuol.mail.sys.intranet Diagnostic-Code: smtp; 550 RCPT TO: User unknown Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 id=quote>id=quote>Correto: comparies@hotmail.com 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...
Luiz Fernando Posted September 21, 2011 Report Share Posted September 21, 2011 ok já passei novamente para o Edvaldo e tb para DR_MICROSO, mais sobre colocar em dicas ou no 4shared é um material do Jose Carlos nem sei se eu poderia estar passando o mesmo, mais agora já foi... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 Quote Link to comment Share on other sites More sharing options...
Dr_Microso Posted September 21, 2011 Report Share Posted September 21, 2011 Luiz, muito grato por compartilhar! José Carlos, parabéns pelo material! :^)id='Tahoma'> HbQt-FiveWin 6.12 "O sábio nem sempre diz tudo o que sabe, o tolo muitas vezes não sabe o que diz!" - Lao Tséid='Tahoma'> dr.microso@hotmail.com Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted September 21, 2011 Author Report Share Posted September 21, 2011 Muito bom o conteudo do arquivo. O exemplo mostra como ler email do outlook, será que funciona para quem use o messenger ? Edvaldo Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted September 21, 2011 Author Report Share Posted September 21, 2011 Compilei o exemplo ler email e estou com o erro abaixo: Application =========== Path and name: C:\FWH\samples\email.exe (32 bits) Size: 1,622,016 bytes Time from start: 0 hours 0 mins 18 secs Error occurred at: 09/21/11, 18:39:56 Error description: Error TOleAuto/65535 : TOLEAUTO:NEW Args: [ 1] = C OutLook.Application [ 2] = U [ 3] = U Stack Calls =========== Called from: => THROW(0) Called from: source\rtl\win32ole.prg => TOLEAUTO:NEW(346) Called from: source\rtl\win32ole.prg => CREATEOBJECT(78) Called from: email.prg => READMAIL(1015) Called from: email.prg => (b)BUILDMENU(404) Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(437) Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1022) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(3378) Called from: => WINRUN(0) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(971) Called from: email.prg => MAIN(165) Fonte: STATIC FUNCTION ReadMail() LOCAL oOutLook:=CreateObject("OutLook.Application") LOCAL oNameSpace:=oOutLook:GetNameSpace("MAPI") LOCAL oInbox:=oNameSpace:GetDefaultFolder(olFolderInbox) LOCAL oEntrada, i, oItem, wnro, w, oArq, cExt, cDestino For i=1 To oInbox:Items:Count oEntrada:Assunto:=Substr(AllTrim(oInbox:Items:Subject),1,80) oEntrada:Data:=oInbox:Items:ReceivedTime oEntrada:Hora:=Substr(Time(),1,5) oEntrada:De:=Substr(AllTrim(oInbox:Items:SenderMailAddress),1,80) oEntrada:Para:="" oEntrada:Nome:=Substr(AllTrim(oInbox:Items:ReceivedByName),1,50) oEntrada:Histor:=AllTrim(oInbox:Items:Body) If Len(oEntrada:Histor) > 60000 oEntrada:Histor:=Substr(oEntrada:Histor,1,60000) Endif oItem = oInbox:oItems If oItem:Attachments:Count > 0 oEntrada:Anexo:=StrZero(wNro,7) For w = 1 To oItem:Attachments:Count oArq=oItem:Attachments[w] cExt=cFileExt(oArq:FileName) cDestino:="e:\sistemas\email\anexos"+StrZero(wNro,7)+"_"+StrZero(w,2)+"."+cExt oArq:SaveAsFile(cDestino) Next Endif oInbox:Items:move(oNameSpace:Folders(1):Folders[12]) Next RETURN( NIL ) Quote Link to comment Share on other sites More sharing options...
FiveWinBr Posted September 21, 2011 Report Share Posted September 21, 2011 OutLook nao instalado. If !IsActiveX('OutLook.Application') Return MsgStop("OutLook Nao Instalado !") Else Return ReadMail() EndIf Att. Lailton Fernando Mariano E-Mail: developer@lailton.com.br | Msn: lailton.developer@hotmail.com http://www.lailton.com.br | http://www.fiveweb.com.br xHarbour 1.2.1 | Fivewin 11.1 | Borland 5.8.2 | Dolphin MySQL | SQLRDD Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted September 21, 2011 Author Report Share Posted September 21, 2011 Legal, é isso mesmo Edvaldo Quote Link to comment Share on other sites More sharing options...
Theotokos Posted September 21, 2011 Report Share Posted September 21, 2011 Boa Noite!!! Alguem pode me enviar tmb este .PPT, achei interessante isto queria dar uma olhada. Obgdo!!!! Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted September 21, 2011 Author Report Share Posted September 21, 2011 Mais erros: Application =========== Path and name: C:\FWH\samples\email.exe (32 bits) Size: 1,622,016 bytes Time from start: 0 hours 1 mins 21 secs Error occurred at: 09/21/11, 21:49:37 Error description: Error BASE/1005 Class: 'NIL' has no property: ASSUNTO Args: [ 1] = U [ 2] = C FW: fotos/Preços brinquedos// Folia e Alegria Analice Stack Calls =========== Called from: => _ASSUNTO(0) Called from: email.prg => READMAIL(1028) Called from: email.prg => (b)BUILDMENU(406) Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(437) Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1022) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(3378) Called from: => WINRUN(0) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(971) Called from: email.prg => MAIN(166) Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted September 22, 2011 Author Report Share Posted September 22, 2011 Consegui usar somente esta linha: AllTrim(oInbox:Items:Body) que é exatamente o que eu preciso o corpo da mensagem, todas as outras: assunto, data, hora, de, para, nome, histor sempre da o mesmo erro de propriedade. Edvaldo 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.