ACBrMail envia XML no corpo da mensagem com mais de 1 arquivo

[LeoncioMaciel]

estou com um problema ao enviar email com dois ou mais arquivos sendo que um deles é do formato XML utilizando o ACBrMail.

O que ocorre:

1- Enviando somente o XML o GMail reconhece ele como anexo e não mostra no corpo da mensagem.

2- Enviando um PDF e o XML o PDF fica correto (como anexo) e o XML fica no corpo e não mostra que era um anexo, fica certo somente quando clico na opção "Exibir toda mensagem".

Mesmo teste com o Thunderbird:

Sempre mostra no corpo da mensagem o XML porem sempre mostra o numero certo de anexos para download.

No código alterei conforme alguns outros tópicos resolvidos 

    for i := 0 to FAnexo.Count-1 do
    begin
      acbr_mail.AddAttachment(FAnexo,'',adAttachment);
    end;

Alguém com o mesmo problema? 

Existe mais alguma configuração no componente a ser realizada?

[Daniel Simoes]

Teste em outros leitores... isso parece mais ser uma característica do GMail..

[LeoncioMaciel]

1 minuto atrás, Daniel Simoes disse:

este em outros leitores... isso p

estranho que se mandar o mesmo PDF e o XML do thunderbird para o GMail ele mostra correto (como anexo).

mas vou fazer o teste com outros leitores.

[LeoncioMaciel]

Problema é o GMail mesmo no hotmail funciona normalmente.

 

[Daniel Simoes]

O corpo do email, estava como HTML ou TXT ?

 

[LeoncioMaciel]

acbr_mail.IsHTML := True;

 

acbr_mail := TACBrMail.Create(Application);
  try
    for i := 0 to FCorpoEmail.Count-1 do
      acbr_mail.Body.Add(FCorpoEmail[i]);

    acbr_mail.IsHTML := True;
    for i := 0 to FAnexo.Count - 1 do
    begin
      acbr_mail.AddAttachment(FAnexo[i],'',adAttachment);
    end;

    if (FConfigEmail.EmailDestino <> '') and (not (Assigned(FListEmailDestino))) then
      FListEmailDestino := RetListaPorSeparador(FConfigEmail.EmailDestino,';');
    try
      acbr_mail.AddAddress(FListEmailDestino[0]);
      for I := 1 to FListEmailDestino.Count - 1 do
      begin
        if Trim(FListEmailDestino[I]) <> '' then
          acbr_mail.AddCC(FListEmailDestino[I]);
      end;

      acbr_mail.From           := FConfigEmail.EmailSender;
      acbr_mail.FromName       := FConfigEmail.DescEmailSender;
      acbr_mail.Subject        := FConfigEmail.Subject;
      acbr_mail.Username       := FConfigEmail.Smtp.UserName;
      acbr_mail.Password       := FConfigEmail.Smtp.Password;
      acbr_mail.Port           := IntToStr(FConfigEmail.Smtp.Port);
      acbr_mail.Host           := FConfigEmail.Smtp.Host;
      acbr_mail.SetSSL         := FConfigEmail.Smtp.UsaSSL;
      acbr_mail.SetTLS         := FConfigEmail.Smtp.UsaTSL;
      acbr_mail.DefaultCharset :=  ISO_8859_1;
      acbr_mail.Send(FUsarThread);

 

Editado 25 Outubro, 2019 por LeoncioMaciel

[Daniel Simoes]

Parece tudo correto...