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.
Alles anzeigen
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