Hallo zusammen,
ich versuche gerade einen Anhang bei mir auf der Festplatte zu speichern. Folgenden Code habe ich gefunden und etwas angepasst:
Code
- var
- i: Integer;
- begin
- if (Item.Kind = ikEmail) then
- begin
- if (Item.AttachmentSize > 0) then
- begin
- begin
- Item.LoadAttachmentsContent;
- for i:= 0 to Item.Attachments.Count-1 do
- begin
- if (FbmCopyFile(Item.Attachments.Items[i].StoredFilePath, 'C:\' +Item.Attachments.Items[i].Name +FbmGenerateUniqueID +'.pdf')) then
- begin
- Item.AddToProtocol('Konnte Datei speichern:' +Item.Attachments.Items[i].Name);
- end;
- end;
- end;
- end;
- end;
- end.
Im Protokoll steht auch, dass die Datei gespeichert werden konnte mit dem Richtigen Namen, jedoch ist im entsprechenden Ordner keine Datei vorhanden.
Ich hab irgendwo einen Denkfehler oder bin ich immer noch so fertig vom Community Day, dass ich den Wald vor lauter Bäumen nicht mehr sehe.
Viele Grüße
Marcel