Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Attachments abtrennen

(1/3) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite