B@rney Posted July 26, 2012 Report Share Posted July 26, 2012 Ola a todos, utilizo uma rotina que exporta dados do sistema e preenche uma planilha de excel e após salva-la teria que envia-la via e-mail.Agora eis a questão até então utilizava a função Tmail() que anexava automatico essa pranilha no e-mail mas a empresa onde trabalho trocou o outlook express pelo outlook 2007 e a função Tmail() parou de funcionar, estive lendo alguns topicos e achei a função Rmail() muito boa mas até agora não consegui faze-la anexar o arquivo automaticamente,se alguem puder me dar uma luz agradeço. Quote Link to comment Share on other sites More sharing options...
B@rney Posted July 26, 2012 Author Report Share Posted July 26, 2012 Ola a todos, utilizo uma rotina que exporta dados do sistema e preenche uma planilha de excel e após salva-la teria que envia-la via e-mail.Agora eis a questão até então utilizava a função Tmail() que anexava automatico essa pranilha no e-mail mas a empresa onde trabalho trocou o outlook express pelo outlook 2007 e a função Tmail() parou de funcionar, estive lendo alguns topicos e achei a função Rmail() muito boa mas até agora não consegui faze-la anexar o arquivo automaticamente,se alguem puder me dar uma luz agradeço. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 26, 2012 Report Share Posted July 26, 2012 Bastante simples de anexar, depois posto uma dica. Mas, se o seu cliente usa WINDOWS 7, basta que ele instale o pacote LIVE. WINDOWS LIVE MAIL, é o OUTLOOK EXPRESS melhorado, o programa RMAIL.PRG, entende o WINDOWS LIVE MAIL igual ao OUTLOOK EXPRESS. http://www.baixaki.com.br/download/windows-live-mail.htm É isso, abs. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Editado por - kapiaba on 26/07/2012 10:06:04 Quote Link to comment Share on other sites More sharing options...
B@rney Posted July 26, 2012 Author Report Share Posted July 26, 2012 O problema é que o setor responsavel ja comprou todas as licenças do outlook 2007 e ja instalou em todas as maquinas por esse motivo que estou mudando para o Rmail(). Editado por - B@rney on 26/07/2012 11:13:49 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 26, 2012 Report Share Posted July 26, 2012 Estou sem tempo agora, mas no proprio RMAIL.PRG, veja o botão ANEXAR... Veja se entende a lógica... João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 26, 2012 Report Share Posted July 26, 2012 Veja: @ 173.00, 169 BUTTONBMP oAdd PROMPT( "&Anexar" ) SIZE 50, 10 PIXEL ; OF oDlgIni ; ACTION( ADDItem() ) //---------------------------------------------------------------- FUNCTION ADDItem() LOCAL cArq := cGetFile32("*.*", "Adicionar(Inserir) Anexo ", , ,.F.) IF FILE( cArq ) // adiciona anexo e liga a listbox oList:ADD(ALLTRIM(cArq)) oList:Hide() oList:Refresh() oList:Show() ENDIF RETURN NIL id=code>id=code> João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
B@rney Posted July 26, 2012 Author Report Share Posted July 26, 2012 Muito obrigado pela dica foi resolvido da seguuinte forma. IF EMPTY(cANEXO) ACTIVATE DIALOG oDlg CENTERED ELSE ACTIVATE DIALOG oDlg CENTERED ON INIT ADDAnexo(cANEXO) ENDIF 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.