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