In welchem Folder liegt das jew. Dokument - FolderReferences

[TMC]

** EDIT **

Komplette Lösung siehe hier unter Best Practices: Best Practices Folder References


Hi,

ich hab mich zu dem Thema "Wie finde ich heraus, in welchem Ordner Dokument XY liegt" mal etwas schlau gemacht  und ein paar Scripts geschrieben.

Damit dies überhaupt klappt, müssen die folgenden Ordner der R5 Mailschablone in die jew. DB kopiert werden:
- $FolderRef
- $FolderRefInfo

Außerdem muss vorher ein db.FolderReferencesEnabled = True ausgeführt werden.
Per Default werden keinerleid Infos in den Dokumenten gespeichert!

Beispiel-Code:

Code

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Set db = session.CurrentDatabase
   
   If   db.FolderReferencesEnabled  Then
      If Messagebox ("Folder References are enabled." & Chr(10) & Chr(10) _
      & "Do you want to disable the Folder References?" ,1 + 32,db.title) = 1 Then
         db.FolderReferencesEnabled = False
         Messagebox "Disabled Folder References now.....", 64, db.title         
      Else
         Exit Sub      
      End If   
   Else
      If Messagebox ("Folder References are disabled." & Chr(10) & Chr(10) _
      & "Do you want to enable the Folder References?" ,1 + 32,db.title) = 1 Then
         db.FolderReferencesEnabled = True
         Messagebox "Enabeled Folder References now.....", 64, db.title
      End If
   End If      
End Sub

Nachträglich Folder References erzeugen

Nun hat man ggf. das Problem, dass db.FolderReferencesEnabled nicht enabled wurde und eine DB (z.B. Mailfile) u.U. viele tausend Dokumente hat ohne jeder Referenz.

Da kann man dann folgenden Code nehmen, damit wird einfach jedes Dokument wieder in denselben Folder geschoben, und damit wird dann nachträglich eine Referenz erzeugt.

Code

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim vec As NotesViewEntryCollection
   Set db = session.CurrentDatabase
   
   If Not Messagebox ("Do you really want to create references of all docs in all folders?" ,1 + 32,db.title) = 1 Then
      Exit Sub      
   End If   
   
   Forall v In db.Views
      If v.isFolder Then
         Set vec = v.AllEntries
         Call vec.PutAllInFolder( v.Name )
      End If
   End Forall
   Messagebox "Folder References are created...", 64, db.title
   
End Sub

Ist erstmal ein erster Wurf, to be continued.....

TMC

[eknori]

das funzt dann aber nur für neu erstellt docs, oder ?

upps, erst lesen, dann posten Script 2 bringt die Lösung

[TMC]

lies mal Script 2 :-)

TMC

[eknori]

TMC ( The Master of Ceremony   ) :

Gute Arbeit, das kann mir in der Fa. gute Dienste leisten..

Feedback folgt...

[TMC]

Freut mich Ulrich  

Auf die Idee bezügl. dem Call vec.PutAllInFolder( v.Name ) brachte mir ein Spotlight.de - Thread......

Bin schon auf Dein Feedback gespannt, sollte auch mal mit einem größeren Mailfile oder so getestet werden - werd ich auch noch angehen....

TMC

[eknori]

Ich habe hie rmein privates Mailfile mit 240 Foldern und 182000 Docs. Das ist schon ordendlich Futter für dein Script, gell ?

[TMC]

rmein privates Mailfile mit 240 Foldern und 182000 Docs.

cool, da geht was  
Und da sagt noch einer hier wird nicht richtig getestet  

TMC

[eknori]

ach ja, bevor das Fragen wieder losgeht, mache doch mal ne DB mit Code und den entsprechenden Ansichten fertig und lade die hier hoch. Merci...

[eknori]

hat gefunzt   Super.  Der Code hat 22 Minuten für meine paar docs gebraucht  

[TMC]

gute Idee, Ulrich.

Hier noch ein Beispiel-Buhtong für eine Ansicht, um in einer Messagebox zu sehen, in welchem Folder das ausgewählte Dok steckt:

Code

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim szReference As String
   
   Set db = session.CurrentDatabase
   
   Set collection = db.UnprocessedDocuments
   
   Set doc = collection.GetFirstDocument
   
   Forall r In doc.FolderReferences
      If r = "" Then Goto Empty
      szReference = r & Chr(10) & szReference
   End Forall      
   
   While Not (doc Is Nothing)
      Msgbox "Folder References: " & Chr(10) & Chr(10) &szReference, 64, db.title
      Set doc = collection.GetNextDocument(doc)   'Nächstes Dokument
   Wend
   
   Exit Sub
   
Empty:
   Msgbox "No References in this document....", 64, db.title
   
End Sub

[eknori]

wow, jetzt drehst du aber auf... supi...

[TMC]

hat gefunzt   Super.  Der Code hat 22 Minuten für meine paar docs gebraucht  

Super, das ist doch was  

[TMC]

Interessant wäre jetzt noch eine View

Dokument | Folder

Mal schauen, ich befürchte ohne DBLookup geht das nicht, was wiederum bedeuten würde, man braucht ein weiteres Feld in den Dokumenten  

TMC

[eknori]

ok, hast recht, aber deine Scripte sind schon mal ein guter Ansatz.
Script 3 in einen Agenten gepackt und dann das Feld $FolderName füllen ( einmal täglich ) wäre für manche FA. schon ein riesen Fortschritt.

Bei neuen Dokumenten müsste das doch auch im PostSave zu machen sein...

[TMC]

jip.

Hier das Script dazu, welches alle Doks der DB behandelt die FolderReferences haben:

Code

Dim session As New notessession 
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set dc = db.allDocuments 
   
   Set doc = dc.GetFirstDocument
   Do While Not doc Is Nothing
      If Not doc.FolderReferences(0) = "" Then
         doc.FolderName = doc.FolderReferences
         Call doc.save (False,False)      
      End If   
      Set doc = dc.GetNextDocument(doc)
   Loop

TMC

[eknori]

und das packe ich dann in das postsave; krrrekt ?

[TMC]

mache doch mal ne DB mit Code und den entsprechenden Ansichten fertig und lade die hier hoch.

Wollte ich eigentlich machen, aber
1) die Scripts sind eh hier verfügbar
2) warum es DAUs noch einfacher machen
3) hab ich jetzt keinen Bock nochmal alles zu dokumentieren in der DB :-)

Was mir hier wichtig war:
- Die vielfach behauptete Aussage, ein FolderReference lasse sich nachträglich nicht umsetzen, zu widerlegen
- praxistaugliche Scripts zu posten die man dazu einsetzen kann

Ich hoffe wir bekommen hier noch Rückmeldungen egal welcher Art und weitere Script-Beispiele, da dieses Thema schon immer im Notes-Bereich ein Problem war (Zuordnung Dokumente / Folder), und R5 brachte die Lösung, nur viele wußten bzw. wissen es nicht wie umzusetzen.

TMC

[TMC]

@Ulrich:
War für einen Buhtung ausgelegt.....

TMC

*Edit*
wenn Du das letzte Script meinst.

[eknori]

Die vielfach behauptete Aussage, ein FolderReference lasse sich nachträglich nicht umsetzen, zu widerlegen

was dir gelungen ist...  

[TMC]

Danke Ulrich, solch eine Bestätigung von einem Experten wie Dir freut mich sehr :-)

Zumal ich wirklich (noch) kein Script Freak bin :-)