envio de email....

[Carlos Paiva]

 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)


 

[Daniel Simoes]

Por favor anexe o Log do ACBrMonitor, para verificarmos como o comando chega, e a exata msg de erro

[Carlos Paiva]

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

[Daniel Simoes]

Precisamos do Log completo, para analise...

Se tiver dados sensíveis, pode enviar por Mensagem Privada

[Carlos Paiva]

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

[Carlos Paiva]

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

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

[EMBarbosa]

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?

[Victor H. Gonzales - Panda]

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

 

 

 

[Carlos Paiva]

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

 

[Carlos Paiva]

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")

[Daniel Simoes]

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

[Carlos Paiva]

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.

[Daniel Simoes]

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