Indy TIdMessageBuilderHtml PlanText Umlaute

[sega84]

Lösung gefunden:

Delphi-Quellcode:

    with TIdMessageBuilderHtml.Create do
    begin
      try
        PlainText.Text := AAlternativtext;
        Html.Clear;
        Html.Text := GetHTMLText;
        FillMessage(mes);
      finally
        Free;
      end;
    end;

    mes.MessageParts.CountParts;
    for i := 0 to mes.MessageParts.Count - 1 do
    begin
      if ansiuppercase(mes.MessageParts.Items[i].ContentType) = ansiuppercase('text/plain') then
      begin
        with TIdText(mes.MessageParts.Items[i]) do
        begin
          ContentType := 'text/plain';
          CharSet := 'ISO-8859-1';
          ContentTransfer := 'BASE64';
          ContentDisposition := 'inline';
        end;
        break;
      end;
    end;

Danke an alle!