Ir para conteúdo
  • Cadastre-se

dev botao

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


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

Recommended Posts

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?

Link para o comentário
Compartilhar em outros sites

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 por LeoncioMaciel
Link para o comentário
Compartilhar em outros sites

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