Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

envio de email....


Go to solution Solved by Daniel Simoes,

Recommended Posts

  • Membros Pro

 BOM dia

utilizando o acbrmonitor.exe 

preciso colocar um TEXTO no Email 
estou tentando assim e NAO envia o texto e nem da erro

como seria o comando ?

desde já agradeço


        a = ppath + [\] +alltrim(pusuario) + '.txt'
         cTxt      = memoread(a)
         *x_comando = [EMAIL.TextoMensagem("]+cTxt+[")]      --->  ja  tentei assim e tambem Não vai o texto
           x_comando = [EMAIL.TextoMensagem(a)]
         acbr_comandar_nfe(x_comando)


 

Link to comment
Share on other sites

  • Membros Pro

NAO da erro, simplesmente o email vai sem O TEXTO no corpo do email

           x_comando = [EMAIL.TextoMensagem(a)]
         acbr_comandar_nfe(x_comando)
apos este comando verifiquei o 
LOG.txt e eleestav com o TEXT dentro
nao sei se isso é normal

 

sainfe.txt
OK: Enviando e-mail em segundo plano...


Log.txt      apos finalizar

18/04/2022 11:54:46 - EMAIL.Enviar
18/04/2022 11:54:46 - OK: Enviando e-mail em segundo plano...
18/04/2022 11:54:46 - Email: Iniciando processo de envio.
18/04/2022 11:54:46 - Email: Configurando o cabeçalho do e-mail.
18/04/2022 11:54:46 - Email: Logando no servidor de e-mail.
18/04/2022 11:54:47 - Email: Iniciando os envios.
18/04/2022 11:54:47 - Email: Processando lista de destinatários.
18/04/2022 11:54:48 - Email: Enviando dados.
18/04/2022 11:54:49 - Email: Fazendo Logout no servidor de e-mail.
18/04/2022 11:54:49 - Email: Enviado com sucesso

Link to comment
Share on other sites

  • Membros Pro

Daniel  boa tarde.
esta COMPLETO  antes de começar deleto todos os *.txt  para nao fazer confusao.

coloquei um stop antes e um depois do envio do texto  renomeio os txt  
001.txt,  002.txt  e  Log.txt
MUDEI o comando para um texto simples para ver se fazia.

         x_comando = [EMAIL.TextoMensagem("textotextotexto")]
         acbr_comandar_nfe(x_comando)

mais tambem NAO mandou o texto no email.


NOTE que quando faz o 18/04/2022 13:57:39 - EMAIL.TextoMensagem("texto tttttttttt tttttttttttt ")
apesar de falar OK  ele APAGA o log.txt

o comando NAO esta errado ?!



001.txt:
18/04/2022 13:57:00 - EMAIL.Assunto("Boletos em ABERTOS")
18/04/2022 13:57:00 - OK:

002.txt:
18/04/2022 13:57:39 - EMAIL.TextoMensagem("texto tttttttttt tttttttttttt ")
18/04/2022 13:57:39 - OK: 

log.txt:
18/04/2022 13:58:13 - EMAIL.Enviar
18/04/2022 13:58:13 - OK: Enviando e-mail em segundo plano...
18/04/2022 13:58:13 - Email: Iniciando processo de envio.
18/04/2022 13:58:13 - Email: Configurando o cabeçalho do e-mail.
18/04/2022 13:58:13 - Email: Logando no servidor de e-mail.
18/04/2022 13:58:13 - Email: Iniciando os envios.
18/04/2022 13:58:14 - Email: Processando lista de destinatários.
18/04/2022 13:58:14 - Email: Enviando dados.
18/04/2022 13:58:15 - Email: Fazendo Logout no servidor de e-mail.
18/04/2022 13:58:16 - Email: Enviado com sucesso

Link to comment
Share on other sites

  • Consultores
3 horas atrás, Carlos Paiva disse:

será   caracter dentro do TEXT ?  (   )   !!!

se eu passo o TEXTO para o comando o o LOG.txt    fica a IMAGEM do texto rs

Qual é o nome do arquivo configurado para gravar o log?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Consultores
3 horas atrás, Carlos Paiva disse:

será   caracter dentro do TEXT ?  (   )   !!!

se eu passo o TEXTO para o comando o o LOG.txt    fica a IMAGEM do texto rs

Como assim o log fica a imagem do texto?

O seu email deveria ter ido com a mensagem

Citar

texto tttttttttttt

 

 

 

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link to comment
Share on other sites

  • Membros Pro

Victor Obrigado pela atenção

ao executar o comando  EMAIL.TextoMensagem("texto tttttttttt tttttttttttt ")

o log.txt  é limpo e exibe o que esta abaixo

18/04/2022 13:57:39 - EMAIL.TextoMensagem("texto tttttttttt tttttttttttt ")
18/04/2022 13:57:39 - OK:

estou Tentando colocar um texto (um arquivinho com as duplicatas em atraso)

NAO é NFE nem CUPOM 
é UM relatório onde procuro quem esta atrasado e mando um email com os boletos.

esta TUDO certo  só que o TEXTO deveria ser o relatório gerado
e ele NAO mostra

coloquei o assunto + o texto   ai exibe tudo lá no assunto ++++++ o relatório sai todo emendado
ate tentei colocar chr(13) + chr(10)  após cada linha   ++++ não adiantou

esse comando   EMAIL.TextoMensagem("texto tttttttttt tttttttttttt ")   deve estar com problema
vou ver se gero um txt com todos os comandos que uso e posto aqui

PAiva


 

Link to comment
Share on other sites

  • Membros Pro

faço assim:

acbr_comandar_nfe("EMAIL.Novo")

x_comando = [EMAIL.AdicionaPara("]+alltrim(t_email)+[")]
acbr_comandar_nfe(x_comando)

x_comando = [EMAIL.Assunto("]+tASSUNTO+[")]
acbr_comandar_nfe(x_comando)

a = ppath + [\] +alltrim(pusuario) + '.txt'
cTxt      = memoread(a)
x_comando = [EMAIL.TextoMensagem("]+alltrim(cTxt)+[")]
acbr_comandar_nfe(x_comando)

    For x := 1 To Len( pAttach )
        if pAttach[x] <> NIL
            x_comando = [EMAIL.AdicionaAnexo("]+pAttach[x]+[", "xxxxxxx",0)]
            acbr_comandar_nfe(x_comando)
       endif
   Next

acbr_comandar_nfe("EMAIL.Enviar")

Link to comment
Share on other sites

  • Fundadores
  • Solution

Como está a configuração "EMAIL.UsarHTML" ?

https://acbr.sourceforge.io/ACBrMonitor/EMAILUsarHTML.html

Veja ainda "EMAIL.TextoAlternativo"

https://acbr.sourceforge.io/ACBrMonitor/EMAILTextoAlternativo.html

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

  • Membros Pro

Daniel       ALLELLUIA     

matou a Pau rs

EMAIL.TextoAlternativo(cTexto)       funcionou  OK

"EMAIL.UsarHTML" ?  este  EU não uso

MUITO Obrigado

 [EMAIL.TextoMensagem("textotextotexto")]    enibi esse no sistema.

Link to comment
Share on other sites

  • Fundadores

o UsarHTML, permite que você mande um texto formatado em HTML. na propriedade "TextoMensagem"...

Acho que ele estava tentando criar o email como HTML, e como não haviam as Tags, o Leitor de email não mostrava o texto...

Geralmente usasse TextoMensagem em HTML e o mesmo conteúdo, sem HTML em TextoAlternativo,  para leitores de email  que filtram HTML

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.