Outlook Bilder auslesen

[Dale]

du hast natürlich vollkommen recht, ich Dusel!
Folgender Code ist dann wohl besser:

Delphi-Quellcode:

var lNameSpace     : NameSpace;
    lFolder        : MAPIFolder;
    lItemColl      : Items;
    i, j           : Integer;
    lElement       : OleVariant;
    lContact       : ContactItem;
begin
  OutlookApplication1.Connect;
  lNameSpace := OutlookApplication1.GetNamespace('MAPI');
  lFolder := lNamespace.PickFolder;
  lItemColl := lFolder.Items;
  IF lItemColl.Count > 0 THEN
    BEGIN
      FOR i := 1 to lItemColl.Count do
        BEGIN

          // Anlagen speichern
          IF (lElement.Attachments.Count > 0) THEN
            BEGIN
              FOR j:= 1 to lElement.Attachments.Count DO
              lElement.Attachments.Item(j).SaveAsFile(
                Format('c:\Anlagen\%s', [lElement.Attachments.Item(j).FileName]));
            END;
        END;
    END;
  OutlookApplication1.Disconnect;
end;

Gruß Dale