Mails werden vereinzelt im Quelltext angezeigt

[Markus70]

Hallo shark,

die Mails sind absolut identisch.
Nur das routing zum Empfänger ist logischerweise ein anderes.
Ich vermute, dass irgendein Gateway unterwegs etwas an den Kopfzeilen nicht mag. Aber was?


Die Mail erstelle ich übrigens so:

Delphi-Quellcode:

   try
    IdMessage := TIdMessage.Create(self);
    Result:=True ;
    try
    IdMessage.IsEncoded:=True ;
    IdMessage.CharSet:='iso-8859-1';
    IdMessage.Encoding:=meMIME;
    IdMessage.Subject:=betreff;
    IdMessage.From.Text:=VonMail;
    IdMessage.From.Name:=VonName;
    IdMessage.ReplyTo.EMailAddresses   := ReplyTo;
    IdMessage.Recipients.Clear;
    IdMessage.Recipients.Add;
    IdMessage.Recipients.Items[0].Name := AnName;
    IdMessage.Recipients.Items[0].Address := AnEMail;
    IdMessage.CCList.Clear;
    IdMessage.ContentType:='multipart/related';
    IdMessage.Body.Clear;

    try
      htmpart := TIdText.Create(IdMessage.MessageParts);
      htmpart.Body.Text := HTMLText;
      htmpart.ContentType := 'text/html';
    except
      result:=False ;
      exit ;
    end;
    try
      txtpart := TIdText.Create(IdMessage.MessageParts);
      txtpart.Body.Text := PlainText;
      txtpart.ContentType := 'text/plain';
      txtpart.CharSet:='iso-8859-15';
      txtpart.ContentTransfer := '8bit';
    except
      result:=False ;
      exit ;
    end;