Domino 9 und frühere Versionen > ND6: Entwicklung

NotesOutlineEntry - Rückgabewert

<< < (2/3) > >>

Gandhi:
Das wird dann knifflig...
Was hast Du denn damit vor? Der markierte ist ja auch gleich dem aktuell geöffneten Ordner.
Hilft Dir currentview nicht?

eknori:

--- Zitat ---Im Mailfile müßte der Namen des markierten Ordners doch mit dem @viewtitle übereinstimmen, oder!?

--- Ende Zitat ---

Ah, Licht am Ende des Tunnels  ;D Das ist dochschon mal was.

OK, was habe ich vor. Ich war vorgestern auf der DMS in Essen und habe mir dort Archivsysteme angesehen, um ( auch ) Notes Dokument GDPdU konform archivieren zu können. Die können das alle wunderbar mit "selected documents".
Aber unsere User würden wohl kaum in jeden Unterordner reingehen und dann die Dokumente auswählen, archivieren und dann in den nächsten Unterordner gehen u.s.w.

Einfach einen Ordner auswählen und alle dokumente in diesem Ordner inkl. aller Dokumente in den darunterliegenden Unterordnern zu sichern; das konnte keines der Systeme, die ich mir angeschaut habe.

Und jetzt interessiert mich einfach mal, warum die das nicht können.  :D

eknori:
OK, hier also meine Lösung für das "Problem". Mit den NotesOutline Klassen kommt man nicht recht zum Ziel.

folgender Code liefert alle Folder unterhalb eines gewählten Folder incl des gewählten Folders

Sub Initialize
   
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim view As NotesUIView
   Dim AllViewsInDB As Variant
   Dim SelectedFolderName As String
   Dim FolderNames() As String
   Dim i As Integer
   i = 1
   Set db = session.CurrentDatabase
   AllViewsInDB = db.Views
   
   Set view = workspace.CurrentView
   SelectedFolderName = view.ViewName
   Forall v In AllViewsInDB
      If Instr ( Cstr(v.name), Left(SelectedFolderName,Len(SelectedFolderName)) ) > 0 Then
         Redim Preserve FolderNames(i) As String
         FolderNames(i -1 ) = Cstr(v.name)
         i = i +1
      End If
   End Forall
   
End Sub

FolderNames enthält nun alle Werte, die man für die Weiterbearbeitung benötigt.

eknori:
hier noch eine gekürzte Version:

Sub Initialize   
   
   Dim s As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim i As Integer
   i = 1
   Forall v In s.CurrentDatabase.Views
      If Instr ( v.name , ws.CurrentView.ViewName ) > 0 Then
         Redim Preserve FolderNames ( i ) As String
         FolderNames ( i -1 ) = v.name
         i = i +1
      End If
   End Forall
   
   For i = 0 To ( Ubound ( FolderNames ) - 1 )
      Msgbox FolderNames  ( i )
   Next
   
End Sub

eknori:
@Frank: Danke für den Tip ! Hier noch ein Link zu http://www.eknori.de/home/detail.php?nr=1345&kategorie=home

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete