Anhang lokal auf den PC Speichern

Marcel · 8. Juli 2022

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

jörn@GREYHOUND · 11. Juli 2022

Moin Marcel,

am GCD liegts glaube ich nicht.

https://thumbs.gfycat.com/Comf…anary-size_restricted.gif

Deine Regel ist funktional und macht auch was sie soll. Wichtig zu beachten an dieser Stelle ist, dass die Funktion FbmCopyFile immer serverseitig ausgeführt wird. Bedeutet der Anhang wird auf dem GREYHOUND Server in dem angegebenen Verzeichnis abgelegt.

Client-seitig lässt sich das nur über den Umweg mittels GREYHOUND FileSync realisieren, einen direkten Zugriff über die obige Funktion ist leider nicht möglich, das wäre auch ein nicht unerhebliches Sicherheitsrisiko.

Marcel · 11. Juli 2022

Mahlzeit Jörn,

danke für den Hinweis, hatte nicht mehr daran gedacht, dass FbmCopyFIle nur auf dem Server funktioniert. Da wir ja das Hosting bei euch haben, konnten die Dateien bei mir nicht funktionieren.

Danke für deine Hilfe und einen schönen Start in die Woche.