Fórum Delphi: HTML não é exibido no corpo do e-mail em alguns programas de e-mail. #478322

var
  oHtml   : TIdText; //Corpo do E-Mail (HTML)
  oText   : TIdText; //Anexos (Texto)
  oAnexos : TStringList;
  iIdx    : Integer;
begin
  if (AllTrim(fConfigEMail.Values['LOGIN']) = EmptyStr) or
     (AllTrim(fConfigEMail.Values['SENHA']) = EmptyStr) or
     (AllTrim(fConfigEMail.Values['HOST']) = EmptyStr) or
     (AllTrim(fConfigEMail.Values['PORTA']) = EmptyStr) or
     (AllTrim(fConfigEMail.Values['SSL_TLS']) = EmptyStr) then
    raise Exception.Create('Preencha as configurações de e-mail nos parâmetros do sistema.');

  fIdSMTP.Username  := fConfigEMail.Values['LOGIN'];
  fIdSMTP.Password  := fConfigEMail.Values['SENHA'];
  fIdSMTP.Host      := fConfigEMail.Values['HOST'];
  fIdSMTP.Port      := StrToInt(fConfigEMail.Values['PORTA']);
  if fConfigEMail.Values['SSL_TLS'] <> 'NDA' then
    begin
      //envio com criptografia SSL ou TLS
      fIdSMTP.IOHandler := fIdSSLSocket;
      if fConfigEMail.Values['SSL_TLS'] = 'TLS' then
        fIdSSLSocket.SSLOptions.Method := sslvTLSv1
      else
        fIdSSLSocket.SSLOptions.Method := sslvSSLv2;
      fIdSSLSocket.SSLOptions.Mode     := sslmClient;
    end;
  fIdSMTP.AuthenticationType       := atLogin;
  fIdMessage.From.Address          := fConfigEMail.Values['NOREPLAY'];
  if AllTrim(fConfigEMail.Values['COPIA']) <> EmptyStr then
    fIdMessage.CCList.EMailAddresses := fConfigEMail.Values['COPIA'];
  fIdMessage.Priority              := mpNormal;
  fIdMessage.MessageParts.Clear;
  fIdMessage.Recipients.EMailAddresses := fEMailDestino;
  fIdMessage.Subject                   := fAssunto;
  
  //possibilita envio de e-mail com HTML e anexos
  fIdMessage.ContentType := 'multipart/mixed'; 

  fIdMessage.ContentTransferEncoding := '8bit';
  fIdMessage.CharSet := 'ISO-8859-1';

  oHtml := TIdText.Create(fIdMessage.MessageParts);
  try
    oHtml.ContentType := 'text/html';
    //Carregar corpo do e-mail em HTML
    oHtml.Body.Text   := fHTML;

    oText := TIdText.Create(fIdMessage.MessageParts);
    try
      oText.ContentType := 'text/plain';
      //Carregar anexos, se existirem.
      if AllTrim(fAnexos) <> EmptyStr then
        begin
          oAnexos := TStringList.Create;
          try
            oAnexos.Text := fAnexos;
            for iIdx := 0 to oAnexos.Count - 1 do
              begin
                if FileExists(oAnexos.Strings[iIdx]) then
                  TIdAttachment.Create(fIdMessage.MessageParts,oAnexos.Strings[iIdx]);
              end;
          finally
            oAnexos.Free;
          end;
        end;
      try
        fIdSMTP.Connect;
        try
          if fIdSMTP.Authenticate then
            fIdSMTP.Send(fIdMessage)
          else
            raise Exception.Create('Erro na autenticação do e-mail.');
        finally
          fIdSMTP.Disconnect;
        end;
      except
        on E : Exception do
          raise Exception.Create('Erro no envio do e-mail: ' + E.Message);
      end;
    finally
      oText.Free;
    end;
  finally
    oHtml.Free;
  end;