Indy Message.LoadFromStream funktioniert nicht

[emsländer]

Hier mal ein Beispiel (bei mir kommts aus einer Datei (Typ html)

Delphi-Quellcode:

  fs := Tfilestream.Create(dateiname,fmOpenRead or fmShareDenyWrite); // in Dateiname nat. Path-und Dateiname
  try
    fs.Position := 0;    // File in den String-Stream schreiben
    sStream := TStringStream.Create('');
    sStream.CopyFrom(fs,fs.size);    // Daten in einem String speichern
    stmp := sStream.DataString;
  finally
    freeandnil(fs);
    freeandnil(sstream);
  end;

dann:

Delphi-Quellcode:

  with TIdText.Create(Email.MessageParts, nil) do begin
    body.text := mailblatt.text;  // Mailblatt ist eine RichText Komponente - mit .text wird rein ASCII übernommen
    ContentType := 'text/plain';
    ParentPart := 1;
  end;
  with TIdText.Create(Email.MessageParts, nil) do begin
    body.Text := stmp;  // Hier wird der HTML-Teil übernommen
    ContentType := 'text/html';
     ParentPart := 1;
  end;

Les bitte dazu auch mal folgenden Thread: http://www.delphipraxis.net/internal...ct.php?t=67442

Gruss

EL