Ir para conteúdo
  • Cadastre-se

dev botao

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


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

Recommended Posts

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

Postado

Boa tarde Ferdinan, 

Isso também está acontecendo comigo, porém eu tenho um e-mail do Gmail e estou enviando para um outro Gmail.

Fico no aguardo, obrigado.

A arte de programar consiste na arte de organizar e dominar a complexidade.  :roll:

  • 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

  • Este tópico foi criado há 3529 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
×
×
  • 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.