Einzelnen Beitrag anzeigen

sega84

Registriert seit: 18. Sep 2006
73 Beiträge
 
Delphi XE2 Professional
 
#1

Indy TIdMessageBuilderHtml PlanText Umlaute

  Alt 6. Dez 2010, 09:40
Hallo zusammen,
beim versenden einer Email über Indy 10 nutze ich die TIdMessageBuilderHtml Komponente. Diese funktioniert im HTML-Bereich einwandfrei.
Wenn ich allerdings einen Alternativ-Text übergebe, werden die Sonderzeichen und Umlaute komplett weggeschnitten.
Wo liegt das Problem. Anbei ein Quellcode-Ausschnitt:

Delphi-Quellcode:
 try
    result := false;
    mes := TIdMessage.Create(smtp);
    mes.IsEncoded := true;
    mes.From.Address := AAbsenderEmail;
    mes.From.Name := AAbsenderName;
    mes.ReplyTo.EMailAddresses := AAbsenderEmail;
    mes.Recipients.EMailAddresses := AEmpfaengerEMail;
    mes.Subject := ABetreff;
    mes.ContentType := 'Multipart/Alternative';
    mes.ContentDisposition := 'inline';
    mes.ExtraHeaders.Add('MIME-Version: 1.0');
    mes.ExtraHeaders.Add('Content-Type: multipart/alternative;');
    mes.ExtraHeaders.Add(#9'boundary="----=_TEXT_AND_HTML_BOUNDARY_"');
    mes.CharSet := 'utf-8';

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

    try
      while not smtp.Connected do
      begin
        ConnectSMTP;
        sleep(25);
      end;
      smtp.Send(mes);
      result := true;
    except
      on e : EIdConnClosedGracefully do
      begin
        result := true;
      end
      else
      begin
        result := false;
      end;
    end;
  finally
    FreeAndNil(mes);
  end;
Vielen Dank für eure Hilfe...

Geändert von sega84 ( 6. Dez 2010 um 09:44 Uhr)
  Mit Zitat antworten Zitat