Ir para conteúdo
  • Cadastre-se

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

Não Envia Anexo Quando Tem Corpo Do E-Mail

Fernando Kerber
 Compartilhar
Ver Solução Respondido por Fernando Kerber,
  • Este tópico foi criado há 3325 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Fernando Kerber Enthusiast

Fernando Kerber

Postado
Postado (editado)

Boa tarde,

Quando eu alimento o "CorpoEmail" do AcbrMail e seleciono um arquivo para anexar, ele não envia o anexo para emails do Gmail:

   CorpoEmail := 'Teste e-mail';
   ACBrMail1.AddAttachment('C:\Relatório.PDF','Relatório');
   ACBrMail1.Send;

Mas se eu alimentar assim sem o "CorpoEmail" o anexo vai normal:

   ACBrMail1.AddAttachment('C:\Relatório.PDF','Relatório');
   ACBrMail1.Send;

Acontece apenas quando eu encaminho o email para um destinatário do gmail, quando eu enviei para o meu pago ele recebeu o corpo e o anexo tambem.

Alguém já passou por isso?

Obrigado

Editado por Ferdinan Marco
  • Curtir 1

"A arte de programar consiste em organizar e dominar a complexidade." 🤖

-Edsger W. Dijkstra

Link para o comentário
Compartilhar em outros sites
  • Solution
Fernando Kerber Enthusiast

Fernando Kerber

Postado
  • Autor
  • Solution
Postado

Bom dia Juliomar e Daniel,
Achei uma solução, eu estava usando "ACBrMail1.IsHTML := true" e não estava alimentando o campo "ACBrMail1.Body.Text", estava apenas alimentando o "ACBrMail1.AltBody.Text" que seria o texto puro alternativo, quando eu mando o e-mail em HTML o anexo vai normalmente, mas quando eu mando apenas com o texto puro alternativo não vai o anexo, lembrando que é apenas para e-mails do gmail, funciona normal para outros provedores quando se alimenta apenas o texto puro alternativo com anexo.

 

No caso assim envia:

  ACBrMail1.IsHTML := true;
  ACBrMail1.Body.Text :=
  '<html>'+#13+#10+
  '<head>'+#13+#10+#13+#10+
  '  <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">'+#13+#10+
  '</head>'+#13+#10+
  '<body text="#000000" bgcolor="#FFFFFF">'+#13+#10+
  '<h1>Texto em HTML.</h1><br>'+#13+#10+
  '</body>'+#13+#10+
  '</html>'+#13+#10;
  //
  ACBrMail1.AddAttachment('c:\Relatório.pdf','Relatório');

Eu estava fazendo assim:

  ACBrMail1.IsHTML := true;
  ACBrMail1.AltBody.Text := 'Teste com texto puro alternativo.';
  //
  ACBrMail1.AddAttachment('c:\Relatório.pdf','Relatório');

Sem alimentar o ACBrMail1.Body.Text.

 

Vou criar um e-mail no gmail, dai eu faço um mini projeto das duas formas para vocês entenderem melhor depois eu posto aqui.

Não sei se é algum tipo de bloqueio do gmail ou algo assim mas caso alguém passe por isso ta ai uma solução.

Obrigado.

  • Curtir 1

"A arte de programar consiste em organizar e dominar a complexidade." 🤖

-Edsger W. Dijkstra

Link para o comentário
Compartilhar em outros sites
  • Este tópico foi criado há 3325 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...
The popup will be closed in 10 segundos...