Attachments abtrennen

[gere]

Hallo zusammen.

Gabs nicht einmal im Notes Client so eine Funktion, mit der ich bei ausgewählten Emails die Attachments abtrennen kann, um die Datenbank schlanker zu machen? Oder irre ich mich da jetzt? Kann die Funktion im Moment nicht mehr finden!

Gruss Gere

[matze79]

Mail zum editeren öffnen, das Attachement markieren und entfernen.

[Hive]

Ohne jetzt den balken vorzeitig übers knie zu brechen .. ich kann mich an keinen erinnern. Aber es ist relativ einfach einen agenten zu schreiben der das macht ...

Von einem netten Kollegen .. als anfang für den agenten:

Sub Initialize
   On Error Goto errhandle
   Dim nws As New NotesUIWorkspace
   Dim ns As NotesSession
   Dim ndb As NotesDatabase
   Dim nuv As NotesUIView
   Dim nv As NotesView
   Dim nvec As NotesViewEntryCollection
   Dim nve As NotesViewEntry
   Dim nd As NotesDocument
   
   Set nuv = nws.CurrentView
   Set nv = nuv.View
   Set  nvec = nv.AllEntries
   Set nve = nvec.GetFirstEntry
   cnt=1
   
   While (Not nve Is Nothing)
      Set nd =nve.Document
      If nd.HasEmbedded Then
         Set rtitem=nd.GetFirstItem("Body")
         Forall o In rtitem.EmbeddedObjects
            Call o.ExtractFile("c:\temp\detacher\" + cnt +"-"+o.name)
            Print "c:\temp\detacher\" + cnt +"-"+o.name
            Call o.remove
            cnt = cnt + 1
         End Forall
         Call nd.Save(True,True)
      End If
      Set nve=nvec.getnextentry(nve)
   Wend
   Goto dne
   
errhandle:
   Print "Fehler " + Cstr(Err) +" "+ Error$+" in Zeile " + Cstr(Erl)
   Resume Next
dne:
End Sub

[gere]

OK, dachte immer da gabs ne Funktion im Client, naja egal. Dann mach ich mir eben nen Agenten.

Vielen Dank nochmal!
Gere

[koehlerbv]

Diese Einstellung findest Du auch im Client, und zwar unter den Archivierungseinstellungen.

Bernhard

[Bocki]

Morgen.


Ich hätte da eine Frage zu. Gibt es einen Weg diesen Code so umzuschreiben, dass die Attachments nicht auf der Platte gespeichert werden sondern in einer db?

Mir geht es dabei um ein Mailfile. Ich will einen Agent haben, der alle mails auf attachments prüft, diese detached, in eine andere DB piped und an der stelle in der mail einen Link zu der DB und dem file erstellt.

Geht das hiermit überhaupt?


danke schonmal

[Driri]

Wenn Du es programmierst schon. Du mußt dann nach dem Dettachen einfach in der Ziel-DB ein neues Dokument anlegen, die gelösten Attachments dort reinpacken, speichern und im Quelldokument im RTF einen DocLink auf das Archivdokument einfügen.

[Bocki]

hmm ..ok.. soweit war mir das bewusst. Ich bin leider nicht wirklich versiert in Notes Script.. könnte mir einer diese paar zeilen schreiben? sind ja eigentlich nicht viele änderungen an dem obigen script.

Das wäre sehr nett.

//bocki

[DerAndre]

Klaus er wolte ein paar, nicht eine... 

[Driri]

könnte mir einer diese paar zeilen schreiben? sind ja eigentlich nicht viele änderungen an dem obigen script.

Sorry, aber dieses Forum bietet Hilfe zur Selbsthilfe. Selbst wenn sich einer hinsetzt, das programmiert und Dir zur Verfügung stellt - Eer wartet das Script ? Wie willst Du das supporten, wenn Probleme auftreten oder das Script nicht so funktioniert, wie Du das möchtest ?

Es gibt einige Mitglieder hier im Forum, die mit so etwas ihre Brötchen verdienen. Evtl. findet sich da jemand, der Dir das gegen Bezahlung umsetzt.

[Hive]

aber warum Script .. wie von Bernhard angesprochen, serverseitig Archivierung ist in diesem Fall besser mit der Option "Anhänge entfernen, Zusammenfassung und 40 KB beibehalten". So muss man nicht programmieren, der Link wird automatisch generiert und 40K Text reichen oft.