Outlook msg lesen / parsen

[Pitschki1801]

Moin Gerd,

vielleicht gibt es eine Kennung, aber die hab ich auch noch nicht gefunden

Ich wandel den IStream in einen TStringStream um, ist vielleicht etwas einfacher zu handeln.
Bei dem E-Mailtext solltest du die Nullzeichen nicht unbedingt gegen Leerzeichen ersetzen ^^

Delphi-Quellcode:

function PDropTarget.GetAttachmentFilename(_AttachmentStorage: IStorage): String;
var
    l_AttachmentStream: IStream;
    l_AttachmentStat: TStatStg;
    l_OleStream: TOleStream;
    l_StringStream: TStringStream;
    l_FileName: String;
    p : PChar;
    i : integer;
begin
    //CONST_AttachmentFileName = '__substg1.0_3001001F'
    _AttachmentStorage.OpenStream(CON_AttachmentFileName, nil, STGM_READWRITE or STGM_SHARE_EXCLUSIVE, 0, l_AttachmentStream);
    if (l_AttachmentStream.Stat(l_AttachmentStat, STATFLAG_NONAME) = S_OK) then
    begin
        try
            l_OleStream := TOleStream.Create(ISTREAM(l_AttachmentStream));
            l_StringStream := TStringStream.Create('');
            l_StringStream.CopyFrom(l_OleStream, 0);
            l_FileName := l_StringStream.DataString;
            UniqueString(l_FileName);
            p := PChar(l_FileName);
            for i := 1 to length(l_FileName) do
            begin
                if p^ = #0 then
                    p^ := #32;
                Inc(p);
            end;
            result := StringReplace(l_FileName, #32, '', [rfReplaceAll]);
        finally
            l_OleStream.Free;
            l_AttachmentStream := NIL;
        end;
    end;
end;

Mit dem Datum von gesendeten Mails kann ich dir zur Zeit leider nicht weiter helfen.

Gruß
David

[norwegen60]

Hallo David,

wirklich einfacher finde ich deinen Weg auch nicht gerade

Als ID verwende ich allerdings __substg1.0_3707001F. Bei __substg1.0_3001001F hatte ich es schon, dass dort der Name des Anhangs nicht drin stand obwohl ein Anhang da war.

Die Sucherei nach den richtigen ID ist ziemlich mühsam. Gibt es nirgend eine Quelle, wo alle ID erklärt sind? Z.B. auch die für das Sendedatum?

Grüße
Gerd

[Pitschki1801]

Moin,

das es einfacher und schöner ist würde ich auch nie behaupten
Hmm ich hatte mit der ID bislang keine Probleme, aber ich behalte das mal im Auge.

Bei MS selbst findest du schon bisschen was über .MSG
https://msdn.microsoft.com/en-us/lib...exchg.80).aspx
http://blogs.msdn.com/b/openspecific...at-part-1.aspx
http://blogs.msdn.com/b/openspecific...ge-part-2.aspx
http://blogs.msdn.com/b/openspecific...ge-part-3.aspx

Ansonsten hab ich noch dies gefunden sicher nicht vollständig, aber besser als nichts.
http://www.fileformat.info/format/outlookmsg/


Gruß
David