Outlook Anhänge speichern

[Inga]

Hallo

Ich würde gerne alle Anhänge eines Outlookordners speichern. Bisher habe ich dort folgendes:

var NmSpace: NameSpace;
Folder, test: MAPIFolder;
ItemColl :Items;
i : integer;
help : OleVariant;
Datei: OleVariant;
begin
i:=0;
frm_main.OutlookApplication1.Connect;
NmSpace := frm_main.OutlookApplication1.GetNamespace('MAPI');
Folder := nmspace.PickFolder;
ItemColl := Folder.Items;
if ItemColl.Count > 0 then
begin
for i := 1 to ItemColl.Count do
begin
help:=ItemColl.Item(i);
if (help.Attachments.Count>0) then
begin
for x:= 1 to help.Attachments.Count do
help.Attachments.Save('c:\test\zumkuckuk.txt');
end;
end;
end;
frm_main.OutlookApplication1.Disconnect;

Hier sagt er mir immer, daß das Automatisierungsobject dies nicht unterstützt (Also das Save). Ich weiß nun aber nicht was ich sonst tun kann. Ich habe es schon mit SaveAs, FileSaveAs etc. versucht. Kann mir da einer weiterhelfen?

Liebe Grüße
Inga

[Dale]

Hallo Inga,

bei mir funktioniert es, wenn ich eine Zeile ersetzte:
   help.Attachments.Item(x).SaveAsFile(Format('c:\Anlage%d.txt', [x]));
Gruß Dale

[Inga]

Hallo Dale

Danke jetzt funktioniert es bei mir auch. Vielen lieben Dank

Liebe Grüße
Inga

[Dale]

Noch besser ist aber folgende Zeile:
  help.Attachments.Item(x).SaveAsFile(Format('c:\Anlagen\%s', [help.Attachments.Item(x).FileName])); (Hätte ich auch direkt drauf kommen können)

Gruß Dale

[semo]

@inga: versuch mal beim nächsten posting deinen Quelltext als Quelltext zu formatieren, damit dieser besser lesbar ist...