Ir para conteúdo
  • Cadastre-se

dev botao
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Utilização do comando email.envia

oribeiro

Por oribeiro
em ACBrMonitor PLUS

 Compartilhar
  • Este tópico foi criado há 2563 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

oribeiro Community Regular

oribeiro

Postado
Postado

Pessoal,

Passei a usar o comando EMAIL.Envia do ACBr e me deparei com uma situação que não estou conseguindo resolver.

Quando envio a mensagem com quebra de linha chr(13)+chr(10) a mensagem é truncada no final da primeira linha.

Tentei utilizar os esse comando: 

email.TextoAlternativo( "teste mensagem para [email protected]"+chr(13)+chr(10)+;
                                     "segunda linha"+chr(13)+chr(10)+"terceira linha" )                   

Depois, formatei o texto com Html tentei usar os comandos:

email.TextoAlternativo
email.UsarHtml(.T.)

Mas aconteceu o mesmo erro.

O que devo fazer?

Obrigado.

Oscar Ribeiro

OASyS Informática

Link para o comentário
Compartilhar em outros sites
oribeiro Community Regular

oribeiro

Postado
  • Autor
Postado

Olá Celso,

Obrigado pela prontidão em responder.

Segue o Log usando estilo HTML:

email.Novo
OK: Novo E-mail iniciado!
email.AdicionaPara("[email protected]")
OK: E-mail [email protected] adicionado a lista "Para".
email.Assunto("(OASyS) Teste de envio de email.")
OK:
email.TextoMensagem("<html>
OK:
ACBR.<body bgcolor="#F0F0F0">
ERRO: Comando inválido (<body bgcolor="#F0F0F0">)
ACBR.<span style="font-family: Arial,sans-serif; color: #1F497D">&nbsp;</span>
ERRO: Comando inválido (<span style="font-family: Arial,sans-serif; color: #1F497D">&nbsp;</span>)
<table border="0" cellspacing="0" cellpadding="0" width="100%" style="width: 100.0%; border-collapse: collapse; background: #F0F0F0">
ERRO: Objeto inválido: <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="100%" STYLE="WIDTH: 100
 Permitidos: "ECF","CHQ","GAV","DIS","LCB","ACBR","BAL","ETQ","BOLETO","CEP","IBGE","EMAIL","SEDEX","NCM","NFE","CTE","MDFE","SAT","ESCPOS"
ACBR.<tr>
ERRO: Comando inválido (<tr>)
ACBR.<td valign="top" style="padding:0cm 0cm 0cm 0cm">
ERRO: Comando inválido (<td valign="top" style="padding:0cm 0cm 0cm 0cm">)
ACBR.<div align="center">
ERRO: Comando inválido (<div align="center">)
<table border="0" cellspacing="0" cellpadding="0" width="580" style="width: 435.0pt; border-collapse: collapse; background: white">
ERRO: Objeto inválido: <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="580" STYLE="WIDTH: 435
 Permitidos: "ECF","CHQ","GAV","DIS","LCB","ACBR","BAL","ETQ","BOLETO","CEP","IBGE","EMAIL","SEDEX","NCM","NFE","CTE","MDFE","SAT","ESCPOS"
ACBR.<tr>
ERRO: Comando inválido (<tr>)
ACBR.<td valign="top" style="padding:0cm 0cm 0cm 0cm">
ERRO: Comando inválido (<td valign="top" style="padding:0cm 0cm 0cm 0cm">)
ACBR.<table border="0" cellspacing="0" cellpadding="0" width="100%" sty
ERRO: Comando inválido (<table border="0" cellspacing="0" cellpadding="0" width="100%" sty)
email.UsarHTML(.T.)
OK:
email.AdicionaAnexo("oasparm.mem")
ERRO: Add Attachment: File not Exists.
Email: Iniciando processo de envio.
Email: Configurando o cabeçalho do e-mail.
Email: Logando no servidor de e-mail.
Email: Iniciando os envios.
Email: Processando lista de destinatários.
Email: Enviando dados.
Email: Fazendo Logout no servidor de e-mail.
Email: Enviado com sucesso
email.Enviar
OK: E-mail enviado com sucesso!
 

Segue o Log usando texto puro, sem html:

email.Novo
OK: Novo E-mail iniciado!
email.AdicionaPara("[email protected]")
OK: E-mail [email protected] adicionado a lista "Para".
email.Assunto("Anexo o PDF do ESPELHO da NF-e ( SEM VALOR FISCAL )")
OK:
email.UsarHTML(.F.)
OK:
email.TextoAlternativo("De  : CERAMICA TARBO LTDA.
OK:
ACBR.Para: CLAUDIO SOLDI
ERRO: Comando inválido (Para: CLAUDIO SOLDI)
Anexo encaminhamos o PDF do ESPELHO da Nota Fiscal para simples confer?ncia.
ERRO: Objeto inválido: ANEXO ENCAMINHAMOS O PDF DO ESPELHO DA NOTA FISCAL PARA SIMPLES CONFER?NCIA
 Permitidos: "ECF","CHQ","GAV","DIS","LCB","ACBR","BAL","ETQ","BOLETO","CEP","IBGE","EMAIL","SEDEX","NCM","NFE","CTE","MDFE","SAT","ESCPOS"
ACBR.ATEN??O: *** N?O POSSUI VALOR FISCAL ***
ERRO: Comando inválido (ATEN??O: *** N?O POSSUI VALOR FISCAL ***)
ACBR.")
ERRO: Comando inválido ("))
email.AdicionaAnexo("o:\ACBrMonitorPLUS\PDF\35170561922720000107550000009014081537830556-nfe.pdf")
OK: Anexo incluído com sucesso!
Email: Iniciando processo de envio.
Email: Configurando o cabeçalho do e-mail.
Email: Logando no servidor de e-mail.
Email: Iniciando os envios.
Email: Processando lista de destinatários.
Email: Enviando dados.
Email: Fazendo Logout no servidor de e-mail.
Email: Enviado com sucesso
 

 

Oscar Ribeiro

OASyS Informática

Link para o comentário
Compartilhar em outros sites
Celso Marigo Junior Proficient

Celso Marigo Junior

Postado
Postado

Sempre anexe os logs, fica mais facil de ler...

O erro parece na passagem do parâmetro do corpo do email, em ambos os casos que vc informou, está sendo passado errado. Provavelmente o problema está nas ", aspas. Os parâmetros de um comando podem ser passados entre aspas. Mas nesse caso elas passam a ser usadas como delimitadores. 

// Veja nesse trecho que ele da erro a cada linha, como se cada linha do HTML, fosse um comando.
email.TextoMensagem("<html>
OK:
ACBR.<body bgcolor="#F0F0F0">
ERRO: Comando inválido (<body bgcolor="#F0F0F0">)
ACBR.<span style="font-family: Arial,sans-serif; color: #1F497D"> </span>
ERRO: Comando inválido (<span style="font-family: Arial,sans-serif; color: #1F497D"> </span>)
<table border="0" cellspacing="0" cellpadding="0" width="100%" style="width: 100.0%; border-collapse: collapse; background: #F0F0F0">
ERRO: Objeto inválido: <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="100%" STYLE="WIDTH: 100

Tente escrever o HTML sem o uso de aspas. Ou ainda, escrever o HTML em um TXT e passar o caminho para ele no comando.

Consultor SAC ACBr

Celso Marigo Junior

Conheça o Portal do Projeto ACBr
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

 

Link para o comentário
Compartilhar em outros sites
oribeiro Community Regular

oribeiro

Postado
  • Autor
Postado

Celso,

Eu estou enviando um texto que contém todo o texto, o comando é que está cortando a variável bem onde está a quebra de linha.

Tentei enviar do modo abaixo, tirando a quebra de linha, mas a mensagem no email recebido só apareceu html, o resto não apareceu.

email.Novo
OK: Novo E-mail iniciado!
email.AdicionaPara("[email protected]")
OK: E-mail [email protected] adicionado a lista "Para".
email.Assunto("(OASyS) Teste de envio de email.")
OK:
email.UsarHTML(.T.)
OK:
email.TextoMensagem("<html><body bgcolor="#F0F0F0"><span style="font-family: Arial,sans-serif; color: #1F497D">&nbsp;</span><table border="0" cellspacing="0" cellpadding="0" width="100%" style="width: 100.0%; border-collapse: collapse; background: #F0F0F0"><tr><td valign="top" style="padding:0cm 0cm 0cm 0cm"><div align="center"><table border="0" cellspacing="0" cellpadding="0" width="580" style="width: 435.0pt; border-collapse: collapse; background: white"><tr><td valign="top" style="padding:0cm 0cm 0cm 0cm"><table border="0" cellspacing="0" cellpadding="0" width="100%" style="width: 100.0%; b
OK:
email.AdicionaAnexo("oasparm.mem")
ERRO: Add Attachment: File not Exists.
Email: Iniciando processo de envio.
Email: Configurando o cabeçalho do e-mail.
Email: Logando no servidor de e-mail.
Email: Iniciando os envios.
Email: Processando lista de destinatários.
Email: Enviando dados.
Email: Fazendo Logout no servidor de e-mail.
Email: Enviado com sucesso
email.Enviar
OK: E-mail enviado com sucesso!

Alias, quando enviei sem a formatação html, ele também truncou na quebra de linha:

email.TextoAlternativo("De  : CERAMICA TARBO LTDA.
OK:
ACBR.Para: CLAUDIO SOLDI
ERRO: Comando inválido (Para: CLAUDIO SOLDI)
Anexo encaminhamos o PDF do ESPELHO da Nota Fiscal para simples confer?ncia.
ERRO: Objeto inválido: ANEXO ENCAMINHAMOS O PDF DO ESPELHO DA NOTA FISCAL PARA SIMPLES CONFER?NCIA
 Permitidos: "ECF","CHQ","GAV","DIS","LCB","ACBR","BAL","ETQ","BOLETO","CEP","IBGE","EMAIL","SEDEX","NCM","NFE","CTE","MDFE","SAT","ESCPOS"
ACBR.ATEN??O: *** N?O POSSUI VALOR FISCAL ***
ERRO: Comando inválido (ATEN??O: *** N?O POSSUI VALOR FISCAL ***)
ACBR.")
ERRO: Comando inválido ("))

Só funciona se eu tirar a quebra de linha, mas daí a mensagem não fica formatada e muito feia. Risos.

Assim:

email.Novo
OK: Novo E-mail iniciado!
email.AdicionaPara("[email protected]")
OK: E-mail [email protected] adicionado a lista "Para".
email.Assunto("Anexo o PDF do ESPELHO da NF-e ( SEM VALOR FISCAL )")
OK:
email.UsarHTML(.F.)
OK:
email.TextoAlternativo("De  : CERAMICA TARBO LTDA. Para: CLAUDIO SOLDI  Anexo encaminhamos o PDF do ESPELHO da Nota Fiscal para simples confer?ncia.  ATEN??O: *** N?O POSSUI VALOR FISCAL ***  ")
OK:
email.AdicionaAnexo("o:\ACBrMonitorPLUS\PDF\35170561922720000107550000009014081892507139-nfe.pdf")
OK: Anexo incluído com sucesso!
Email: Iniciando processo de envio.
Email: Configurando o cabeçalho do e-mail.
Email: Logando no servidor de e-mail.
Email: Iniciando os envios.
Email: Processando lista de destinatários.
Email: Enviando dados.
Email: Fazendo Logout no servidor de e-mail.
Email: Enviado com sucesso
email.Enviar
OK: E-mail enviado com sucesso!
 

Oscar Ribeiro

OASyS Informática

Link para o comentário
Compartilhar em outros sites
oribeiro Community Regular

oribeiro

Postado
  • Autor
Postado

Bom dia Daniel,

Obrigado pela sua sugestão. Tentei usar mas dá erro na compilação do xHarbour, nessa linguagem o comando para True/False é .T./.F.

Note que o ACBr processa o comando corretamente e retorna OK:

email.UsarHTML(.F.)
OK:
 

Oscar Ribeiro

OASyS Informática

Link para o comentário
Compartilhar em outros sites
  • Fundadores
Daniel Simoes Grand Master

Daniel Simoes

Postado
  • Fundadores
Postado

Mas isso não significa que ele está compreendendo o parâmetro informado, da maneira que você imagina...

use a sintaxe correta ou você poderá ter resultados inesperados

Veja na pasta Exemplos, os exemplos em xHarbour

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 para o comentário
Compartilhar em outros sites
oribeiro Community Regular

oribeiro

Postado
  • Autor
Postado

Daniel,

Consegui trocar por (False) , mas o texto continua truncando na quebra de linha.

email.Novo
OK: Novo E-mail iniciado!
email.AdicionaPara("[email protected]")
OK: E-mail [email protected] adicionado a lista "Para".
email.Assunto("Anexo o PDF do ESPELHO da NF-e ( SEM VALOR FISCAL )")
OK:
email.UsarHTML(False)
OK:
email.TextoAlternativo("De  : CERAMICA TARBO LTDA.
OK:
ACBR.Para: CLAUDIO SOLDI
ERRO: Comando inválido (Para: CLAUDIO SOLDI)
Anexo encaminhamos o PDF do ESPELHO da Nota Fiscal para simples confer?ncia.
ERRO: Objeto inválido: ANEXO ENCAMINHAMOS O PDF DO ESPELHO DA NOTA FISCAL PARA SIMPLES CONFER?NCIA
 Permitidos: "ECF","CHQ","GAV","DIS","LCB","ACBR","BAL","ETQ","BOLETO","CEP","IBGE","EMAIL","SEDEX","NCM","NFE","CTE","MDFE","SAT","ESCPOS"
ACBR.ATEN??O: *** N?O POSSUI VALOR FISCAL ***
ERRO: Comando inválido (ATEN??O: *** N?O POSSUI VALOR FISCAL ***)
ACBR.")
ERRO: Comando inválido ("))
email.AdicionaAnexo("o:\ACBrMonitorPLUS\PDF\35170561922720000107550000009014081908783682-nfe.pdf")
OK: Anexo incluído com sucesso!
Email: Iniciando processo de envio.
Email: Configurando o cabeçalho do e-mail.
Email: Logando no servidor de e-mail.
Email: Iniciando os envios.
Email: Processando lista de destinatários.
Email: Enviando dados.
Email: Fazendo Logout no servidor de e-mail.
Email: Enviado com sucesso
email.Enviar
OK: E-mail enviado com sucesso!
 

Dúvida: Existe algum caractere especial que o ACBr reconhece como quebra de linha para a formatação desse campo de mensagem?

Oscar Ribeiro

OASyS Informática

Link para o comentário
Compartilhar em outros sites
Celso Marigo Junior Proficient

Celso Marigo Junior

Postado
Postado

Nenhum problema aqui na quebra de linha, veja os logs, do exemplo usando HTML, removi as aspas do comando, troquei tudo por apostrofe, tudo normal.  

Email.Novo
OK: Novo E-mail iniciado!
Email.AdicionaPara("[email protected]")
OK: E-mail [email protected] adicionado a lista "Para".
Email.Assunto("Teste de Mensagem")
OK:
Email.UsarHTML("1")
OK: 
Email.TextoMensagem("<html><body>
<div style='FONT-SIZE: 12pt; FONT-FAMILY: Tahoma'><span><span>
<div id='signature_old'>
<div style='FONT-SIZE: 12pt; FONT-FAMILY: Tahoma'>
<div style='FONT-SIZE: 12px; FONT-FAMILY: 'Lucida Sans Unicode', 'Lucida Grande', sans-serif; COLOR: #666' align='center'>
<div style='MARGIN: 2px'><b style='FONT-SIZE: 13px; COLOR: #333'>Celso Marigo Junior </b><span style='FONT-SIZE: 7pt; FONT-FAMILY: Wingdings'>l</span> <span>Desenvolvedor Sor. </span><span style='FONT-SIZE: 7pt; FONT-FAMILY: Wingdings'>l</span> D.J.System </div>
<div style='MARGIN: 2px'><span style='FONT-SIZE: 18px; FONT-FAMILY: Wingdings'>)</span> <span>&#43;55(15)3324-3333&nbsp;&nbsp;</span><span style='FONT-SIZE: 15px; FONT-FAMILY: Wingdings'>*</span> <span><a href='mailto:[email protected]'>[email protected]</a>&nbsp;&nbsp;</span><span style='FONT-SIZE: 15px'>@ </span><span><a href='http://www.djsystem.com.br/'>http://www.djsystem.com.br/</a></span> </div>
<div style='MARGIN: 2px'><span style='VERTICAL-ALIGN: middle'>Rua Cel. Aureliano de Camargo, 973 <span style='FONT-SIZE: 7pt; FONT-FAMILY: Wingdings'>l</span> Centro <span style='FONT-SIZE: 7pt; FONT-FAMILY: Wingdings
'>l</span> Tatu=C3=AD/SP <span style='FONT-SIZE: 7pt; FONT-FAMILY: Wingdings'>l</span> Brasil </span></div></div></div></div></span></span></div>
</body></html>")
Email.Enviar
Email: Iniciando processo de envio.
Email: Configurando o cabeçalho do e-mail.
Email: Logando no servidor de e-mail.
Email: Iniciando os envios.
Email: Processando lista de destinatários.
Email: Enviando dados.
Email: Fazendo Logout no servidor de e-mail.
Email: Enviado com sucesso
OK: E-mail enviado com sucesso!

 

Consultor SAC ACBr

Celso Marigo Junior

Conheça o Portal do Projeto ACBr
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

 

Link para o comentário
Compartilhar em outros sites
  • Este tópico foi criado há 2563 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...