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...