Enviar um TXT por email no Clipper

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Jeferson
Usuário Nível 1
Usuário Nível 1
Mensagens: 26
Registrado em: 06 Fev 2013 14:16
Localização: Niteroi/RJ

Enviar um TXT por email no Clipper

Mensagem por Jeferson »

Ola, meus caros.

Estou precisando da colaboração de alguns de voces, ou melhor, de alguem que por ventura já tenha passado por esse tipo de problema.
Fiquei sabendo que posso enviar por e-mail um arquivo .TXT, porem estive vendo alguns topicos aqui no forum e não consegui compreender, talvez porque eu seja inexperiente nessa função, e tambem, por nunca ter oportunidade de utilizar esse recurso.

Eu tenho esse arquivo guardado em .dbf:

Código: Selecionar todos

[    RELATORIO DAS METAS POR ASSISTENTES -  ]
   ASSISTENTE                            N/R (QTDE)  N/R (VLR)      STRETCH(KG)  IMPRESSA     5%        BOLHA       COLA     FRETE     ATIVOS 
  ===========================================================================================================================================
  700 Andrine Parrini                      22        15.548,85         0,00     5.062,87   75.00 %        0,00       32,00   92.03 %     34
  701 Rafaela Cavalcanti                    5         2.296,46         0,00         0,00   53.33 %      648,00        0,00   24.20 %     10
  702 Igor Coelho                          35        26.045,82         0,00     8.449,80   66.67 %        0,00      470,00   48.78 %     40
  704 Deibson Viana                        12        17.956,69         0,00         0,00   66.67 %        0,00        0,00   42.16 %     12
  705 Rafael Moraes                        19        29.821,85         0,00     2.617,03   72.92 %        0,00      100,00   61.95 %     29
  706 Marco Antônio Paiva Leite             0             0,00         0,00         0,00   50.00 %        0,00        0,00   7.75 %       2
  708 Sueli Adame                          37        64.975,17         0,00    11.819,98   41.28 %      835,00        0,00   60.56 %     72
  710 Neide Pimentel                       40        40.173,02         0,00    12.819,55   58.42 %      570,72      256,00   35.81 %     61
  712 Arlensen dos Santos                  36        35.386,84         0,00     2.883,22   62.43 %      772,60        0,00   61.42 %    137
  713 Paulo Silva                          15        21.322,51         0,00       806,40   71.43 %       45,00        0,00   20.43 %     13
  714 Daniele Brum                         50        54.381,19         0,00    10.870,56   68.70 %    2.424,86      756,00   92.07 %     81
  715 Lucas Frois                          43        53.657,09         0,00     9.240,61   31.69 %    4.067,21        0,00   17.36 %    200
  716 Lydiane                              11         9.860,29         0,00     3.778,81   71.43 %      940,00        0,00   68.59 %     10
  717 Joyce Cristina Felipe Barreto        36        44.543,01         0,00     8.935,20   70.09 %        0,00      350,00   95.38 %     81
  718 Ana Cristina                         28        32.938,69         0,00     6.469,83   60.94 %      545,00      570,00   52.39 %     36
  719 Marcio Pereira Dalle Crode           42        83.264,90         0,00    15.192,24   35.22 %      650,00      720,00   11.88 %    277
  720 Bruno Bernardino                     21        44.325,29         0,00     1.022,42   72.73 %      228,00      100,00   33.29 %     34
  722 Renata Cota                          28        21.629,81         0,00     9.891,12   57.58 %      364,05       80,00   34.79 %     71
  723 Raquel Nascimento                     9         5.320,63         0,00       740,16   70.00 %    1.486,00        0,00   83.05 %     11
  727 Joyce Silva                          26        21.835,10         0,00     4.408,57   66.15 %      325,42       20,00   57.01 %     39
  728 Piter Alves                          24        42.552,70         0,00         0,00   66.67 %       43,42        0,00   20.37 %    177
  729 Thiago Arruda                        12        21.437,13         0,00         0,00   44.44 %       39,13        0,00   48.00 %     33




     Total Geral...:                       551      689.273,04         0,00   115.008,37             13.984,41    3.454,00              1460
Vou copiá-lo para um arquivo .TXT, para depois poder envia-lo por e-mail.
A duvida é essa.
Como faço isso?
Qual o procedimeto?

Aguardo uma colaboração dos mais experientes.


Abraços.


Jeferson.


Nota de Moderação:
por Maligno: :
O tópico foi editado para a troca do comando "LIST" original por "CODE", uma vez que o texto tem um alinhamento colunar. Apesar de não ser código, a fonte fixa ajuda a manter a formatação original, que se perde com o comando "LIST". Melhor seria se o texto fosse anexado ao tópico ao invés de incluído no texto. Aliás, nota-se que a listagem dos dados em si, em função da dúvida, não tem qualquer utilidade.
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

ENVIAR UM TXT POR EMAIL NO CLIPPER

Mensagem por alxsts »

Olá!

Em se tratando de Clipper, você precisará de um utilitário externo para enviar os e-mails. Normalmente usa-se o SmtpSend ou o Blat.

Utilize a busca do fórum e pesquise esses dois termos. Você vai encontrar bastante material a respeito.
[]´s
Alexandre Santos (AlxSts)
Jeferson
Usuário Nível 1
Usuário Nível 1
Mensagens: 26
Registrado em: 06 Fev 2013 14:16
Localização: Niteroi/RJ

ENVIAR UM TXT POR EMAIL NO CLIPPER

Mensagem por Jeferson »

Caro Alxsts;

Pesquisei Smtpsend não achei nada.
Pesquisei Blat, também não achei nada.

Você teria um tutorial a respeito?

Jeferson.
Avatar do usuário
Pablo César
Usuário Nível 7
Usuário Nível 7
Mensagens: 5312
Registrado em: 31 Mai 2006 10:22
Localização: Curitiba - Paraná

ENVIAR UM TXT POR EMAIL NO CLIPPER

Mensagem por Pablo César »

Jeferson escreveu:Pesquisei Smtpsend não achei nada.
Olá Jeferson, veja quantos tópicos tem a respeito: SmtpSend
Pesquisei Blat, também não achei nada.
E olha sobre: Blat
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Jeferson
Usuário Nível 1
Usuário Nível 1
Mensagens: 26
Registrado em: 06 Fev 2013 14:16
Localização: Niteroi/RJ

ENVIAR UM TXT POR EMAIL NO CLIPPER

Mensagem por Jeferson »

Bom dia, Pablo.

Baixei o programa SMTPsend v3.24 que constava na parte de download aqui no forum.

eu estou utilizando ele dessa forma:

Na janela Enviando E-MAIL em Clipper;

De...........: Jeferson@ig.com.br
Para.........: Jeferson@ig.com.br
Assunto.....: Planilha
Servidor....: meu servidor
Anexar......: planilha.txt
Editar.......: {F5}
Usuario.....: Jeferson
Senha.......: ********


Ai ocorre um erro:

Ocorreu um erro no envio do e-mail

From: jeferson@ig.com.br
to : jeferson@ig.com.br

Warning: File TEX_TO.TXT not found!
Sending Message ...
Error: Unable to establish a connection with mail host [14]


Me explique o que pode está acontecendo?
tem haver com host?

Obrigado.


Jeferson.
Avatar do usuário
Pablo César
Usuário Nível 7
Usuário Nível 7
Mensagens: 5312
Registrado em: 31 Mai 2006 10:22
Localização: Curitiba - Paraná

ENVIAR UM TXT POR EMAIL NO CLIPPER

Mensagem por Pablo César »

Parece que faltou você fazer reconhecer o servidor, através de um comando prévio que existe. Na linha de comando, senão me engano ensina como fazer isso.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Jeferson
Usuário Nível 1
Usuário Nível 1
Mensagens: 26
Registrado em: 06 Fev 2013 14:16
Localização: Niteroi/RJ

ENVIAR UM TXT POR EMAIL NO CLIPPER

Mensagem por Jeferson »

Bom na verdade eu queria enviar o email apartir de um arquivo .TXT.
Segundo informações que eu obtive as 4 primeiras linhas seriam da seguinte forma:

FROM: jeferson@ig.com.br
TO: jeferson@ig.com.br
SUBJECT: resultado
linha em branco.

se eu colocar essas linhas no começo do arquivo .TXT eu consigo enviar?

Desculpe a ignorancia.


Jeferson.
Avatar do usuário
Pablo César
Usuário Nível 7
Usuário Nível 7
Mensagens: 5312
Registrado em: 31 Mai 2006 10:22
Localização: Curitiba - Paraná

ENVIAR UM TXT POR EMAIL NO CLIPPER

Mensagem por Pablo César »

Não tem que obedecer os parâmetros. Você até pode fazer um arquivo texto com os parâmetros e com o texto que você iria passar, já com endereços, referencia, remetente, servidor, senha, etc... mas tem que fazer como indica o help.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Jeferson
Usuário Nível 1
Usuário Nível 1
Mensagens: 26
Registrado em: 06 Fev 2013 14:16
Localização: Niteroi/RJ

ENVIAR UM TXT POR EMAIL NO CLIPPER

Mensagem por Jeferson »

Código: Selecionar todos

(s20H
From: suporte@flax.com.br
To: jeferson@flax.com.br
Subject: Relatorio jeferson Referente 03/2013

  Fitas Flax Ind. e Com. Ltda.
  Pagina..: 1                                                                                                                 Data de Emissao..: 10/04/2013
                                                        [    RELATORIO DAS METAS POR ASSISTENTES - MES DE Mar‡o ]
   ASSISTENTE                            N/R (QTDE)  N/R (VLR)      STRETCH(KG)  IMPRESSA     5%        BOLHA       COLA     FRETE     ATIVOS 
  ==========================================================================================================================================================
  700                                      22        15.548,85         0,00     5.062,87   75.00 %        0,00       32,00   92.03 %     34
  701                                       5         2.296,46         0,00         0,00   53.33 %      648,00        0,00   24.20 %     10
  702                                      35        26.045,82         0,00     8.449,80   66.67 %        0,00      470,00   48.78 %     40
  704                                      12        17.956,69         0,00         0,00   66.67 %        0,00        0,00   42.16 %     12
  705                                      19        29.821,85         0,00     2.617,03   72.92 %        0,00      100,00   61.95 %     29
  706                                       0             0,00         0,00         0,00   50.00 %        0,00        0,00   7.75 %       2
  708                                      37        64.975,17         0,00    11.819,98   41.28 %      835,00        0,00   60.56 %     72
  710                                      40        40.173,02         0,00    12.819,55   58.42 %      570,72      256,00   35.81 %     61
  712                                      36        35.386,84         0,00     2.883,22   62.43 %      772,60        0,00   61.42 %    137
  713                                      15        21.322,51         0,00       806,40   71.43 %       45,00        0,00   20.43 %     13
  714                                      50        54.381,19         0,00    10.870,56   68.70 %    2.424,86      756,00   92.07 %     81
  715                                      43        53.657,09         0,00     9.240,61   31.69 %    4.067,21        0,00   17.36 %    200
  716                                      11         9.860,29         0,00     3.778,81   71.43 %      940,00        0,00   68.59 %     10
  717                                      36        44.543,01         0,00     8.935,20   70.09 %        0,00      350,00   95.38 %     81
  718                                      28        32.938,69         0,00     6.469,83   60.94 %      545,00      570,00   52.39 %     36
  719                                      42        83.264,90         0,00    15.192,24   35.22 %      650,00      720,00   11.88 %    277
  720                                      21        44.325,29         0,00     1.022,42   72.73 %      228,00      100,00   33.29 %     34
  722                                      28        21.629,81         0,00     9.891,12   57.58 %      364,05       80,00   34.79 %     71
  723                                       9         5.320,63         0,00       740,16   70.00 %    1.486,00        0,00   83.05 %     11
  727                                      26        21.835,10         0,00     4.408,57   66.15 %      325,42       20,00   57.01 %     39
  728                                      24        42.552,70         0,00         0,00   66.67 %       43,42        0,00   20.37 %    177
  729                                      12        21.437,13         0,00         0,00   44.44 %       39,13        0,00   48.00 %     33


     Total Geral...:                       551      689.273,04         0,00   115.008,37             13.984,41    3.454,00              1460
como eu enviou assim?


Jeferson.
Jeferson
Usuário Nível 1
Usuário Nível 1
Mensagens: 26
Registrado em: 06 Fev 2013 14:16
Localização: Niteroi/RJ

ENVIAR UM TXT POR EMAIL NO CLIPPER

Mensagem por Jeferson »

Desculpe está insistindo nisso, mas é que eu não sei fazer e estou sendo precionado para fazer dessa forma.

Agradeceria a informação se possivel.


Abraço.



Jeferson.
Avatar do usuário
Pablo César
Usuário Nível 7
Usuário Nível 7
Mensagens: 5312
Registrado em: 31 Mai 2006 10:22
Localização: Curitiba - Paraná

ENVIAR UM TXT POR EMAIL NO CLIPPER

Mensagem por Pablo César »

Jeferson escreveu:Error: Unable to establish a connection with mail host [14]


Me explique o que pode está acontecendo?
tem haver com host?
Veja este tópico a ver se te ajuda: https://pctoledo.org/forum/viewto ... 936#p52936
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar do usuário
09466261000176
Usuário Nível 1
Usuário Nível 1
Mensagens: 39
Registrado em: 19 Mar 2014 15:50
Localização: lorena sp

ENVIAR UM TXT POR EMAIL NO CLIPPER

Mensagem por 09466261000176 »

Caro amigo compreendo bem sua dificuldade, pois, estou tentando resolver problema parecido. O que acontece é que ao invés dos colegas que sabem usar tal tecnologia, ficam apontando direções a serem seguidas. Seria para nós mais proveitoso que nos mostrassem um exemplo que funcione de verdade. embora não saibamos como usar este recurso, tenho certeza que como eu você domina outras funcionalidades que um dia aqui poderá ser útil a alguém. E tenha certeza que não ficarei rodeando o assunto. Mostrarei logo a solução através de um exemplo prático. Quem vive disso precisa resolver logo e não perder tempo com estudos e ensaios. Não levem isso como critica e sim como um apelo ao bom senso.
Avatar do usuário
billy1943
Usuário Nível 4
Usuário Nível 4
Mensagens: 570
Registrado em: 12 Mai 2009 17:33
Localização: Bauru-SP

ENVIAR UM TXT POR EMAIL NO CLIPPER

Mensagem por billy1943 »

Segue abaixo um trecho de programação em Clipper que utiliza o BLAT para enviar um arquivo texto referente
a uma NFE, bem como o arquivo .XML respectivo a essa NFE.
Tenha o BLAT disponível nesse diretório. E tenha certeza do servidor de email que será utilizado.
Entre em contato com o seu provedor para certificar-se disso, senão não funciona mesmo.

Código: Selecionar todos

PROCEDURE email_blat(alfa_num, cfile, xcli_email)
// alfa_num = número da NFE, cfile = arquivo XML da mesma NFE
// xcli_email = email do cliente - obtido no arquivo de clientes compradores
local arq_email := "email.txt"
Set(_SET_DEVICE, "PRINTER")
Set(_SET_PRINTFILE, arq_email)
setprc(0,0)
devpos(0,0)
tp_nrnota  := alfa_num
mens_princ := ' Envio do .XML da NFE nr : ' + tp_nrnota 
mens_princ := ["] + mens_princ + ["]
@ prow()+0,00 say '-subject ' + mens_princ
@ prow()+1,00 say '-bodyf body.txt'
@ prow()+1,00 say '-f ' + "financeiro@vendedetudo.com.br"
@ prow()+1,00 say '-to ' + xcli_email  
@ prow()+1,00 say '-attach ' + cfile
@ prow()+1,00 say '-debug'
@ prow()+1,00 say '-log erro.txt'
@ prow()+1,00 say '-server ' + "mail2.alarcom.com.br"  /// aqui vai o servidor de email  
@ prow()+1,00 say '-u ' + "financeiro@vendedetudo.com.br" 
@ prow()+1,00 say '-pw ' + "guanda2011"
@ prow()+1,00 say '-mailfrom ' + "financeiro@vendedetudo.com.br" 
set( _SET_PRINTFILE, "" )
set( _SET_DEVICE, "SCREEN" )
set printer to
ferase('email.log')
tp_showblat := 'blat.exe -of ' + arq_email 
swpruncmd(tp_showblat,0)
return
O bom do computador é que ele resolve os problemas, sem nunca levantar nenhum.
Hoje atuo mais com Clipper 52E, e um pouquinho com XHarbour.
Responder