Einzelnen Beitrag anzeigen

Inga

Registriert seit: 8. Jun 2006
2 Beiträge
 
#1

Outlook Anhänge speichern

  Alt 8. Jun 2006, 15:35
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
  Mit Zitat antworten Zitat