Lotus Notes / Domino Sonstiges > Tipps und Tricks

In welchem Folder liegt das jew. Dokument - FolderReferences

<< < (5/11) > >>

eknori (retired):
ok, was haben wir jetzt:

- eine Möglichkeit auch nachtraglich die Folderreference anzuzeigen

was fehlt:

- in einer Ansicht den Folder und seine Docs anzuzeigen.

aber dafür hat T he M aster of C eremony ja schon ein script gepostet; TMC.. good deal !!

TMC:
Hier noch ungetestet aus'm Stegreif ein mögliches Postsave-Script:


--- Code: ---Dim session As New notessession
   Dim db As NotesDatabase
    Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument    
   Dim newuidoc As NotesUIDocument   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase   
   Set uidoc = uiws.CurrentDocument   
   Set doc = uidoc.Document
     
   If Not doc.FolderReferences(0) = "" Then
    doc.FolderName = doc.FolderReferences
    Call doc.save (False,False)      
   End if

--- Ende Code ---

TMC:
OK, zur View:

Man bastle sich eine View:

1. Spalte: Subject (oder so), aufsteigend sortiert
2. Spalte: FOLDERNAME (multi-value-separator: New line), View-Eigenschaften: Lines per row: "9".

Das sollte es sein :-)

TMC

eknori (retired):
ja, soweit OK, jetzt mußt du nur noch berücksichtigen, daß manein doc auch von einem zum anderen Folder koperen oder verschieben kann..

TMC:

--- Zitat ---jetzt mußt du nur noch berücksichtigen, daß manein doc auch von einem zum anderen Folder koperen oder verschieben kann..
--- Ende Zitat ---

Hmm, evtl: Einen "Refresh-Buhtung" in die View welche die Doks mit zugehörigen Foldern anzeigt. Evtl. ein Queryopen-Event in die View, aber davon würde ich jetzt abraten, siehe Mail-File von Eknori mit s.au-vielen Dokumenten.

TMC

Refresh-Buhtong-Code:

--- Code: ---Sub Click(Source As Button)
   Dim uiws As New NotesUIWorkspace   
   Dim session As New notessession
   
   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
   Call uiws.ViewRefresh
End Sub
--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete