Einzelnen Beitrag anzeigen

Markus70

Registriert seit: 21. Okt 2004
82 Beiträge
 
Delphi XE7 Professional
 
#7

AW: Mails werden vereinzelt im Quelltext angezeigt

  Alt 24. Aug 2012, 10:59
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;
  Mit Zitat antworten Zitat