Hallo David,
danke für den Tip. Ich dachte es gibt vielleicht noch irgendeine Kennung. Habe es jetzt auch über den Grafiknamen gelöst.
Da ich bis jetzt sehr wenig mit Streams gearbeitet habe, dazu noch eine Frage
Ich wandle den Stream per
Delphi-Quellcode:
function TForm1.GetText(Stream: IStream):String;
var
Statistics : STATSTG;
buff_8 : pChar;
iSize,
iFetch : Integer;
begin
{ Informationen über Stream, u.A. Größe einlesen }
Stream.Stat(Statistics, STATFLAG_NONAME);
{ Buffer in passender Größe reservieren }
buff_8 := AllocMem(Statistics.cbSize);
iSize := Statistics.cbSize DIV 2;
{ Inhalt in buff einlesen }
Stream.Read(buff_8, Statistics.cbSize, @iFetch);
{ Inhalt des Buffers als Result speichern }
Result := copy(String(buff_8), 1, iSize);
{ Speicher für Buffer wieder freigeben }
freeMem(buff_8);
end;
begin
...
aStorage.OpenStream('__substg1.0_007D001F', nil, STGM_READWRITE or STGM_SHARE_EXCLUSIVE, 0, Stream);
if Stream = nil then
mmoHeaders.Text := '[could not read message headers]'
else
mmoHeaders.Text := GetText(Stream);
in ein String um. Gibt es noch eine elegantere Möglichkeit?
Zusätzlich bleibt noch meine alte Frage:
Wie lässt sich der Header von gesendeten Mails auslesen. Ich benötige hier vor allem das Sendedatum
Grüße
Gerd