VBA Tipp: Alle Folder einer Notes Datenbank ermitteln

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Ermitteln aller Folder / Viewnamen innerhalb einer Notes Datenbank.

Lösung

Der folgende Code liest alle Folder / Viewnamen aus einer Lotus Notes Datenbank aus und gibt sie per Debug.Print auf der Konsole aus. Mit Hilfe des dargestellten Beispiels lässt sich sehr einfach ermitteln, welche internen Bezeichnung Notes für einen bestimmten Folder / View verwendet.

Die Platzhalter <Datenbank> und <Mailfile> sind der eigenen Umgebung anzupassen.

 Public Function NotesFolderViewsAnzeigen() As Integer
    On Error GoTo ErrBeh
    Dim intErgebnis As Integer
    Dim objNotes As Object
    Dim LNdb As Object
    Dim LNViews As Variant
 
     intErgebnis = 0
 
    'Holen einer aktiven Notessession
    Set objNotes = GetObject("", "Notes.NotesSession")
    'Verweisen auf die gewünschte Datenbank
    Set LNdb = objNotes.GETDATABASE(<Datenbank>, <Mailfile>)
 
    'Ausgeben der einzelnen Folder /-viewnamen
    For Each LNViews In LNdb.Views
        Debug.Print LNViews.Name
    Next
 
 GoTo Ende
 ErrBeh:
     Err.Clear
     intErgebnis = 1
 Ende:
     NotesFolderViewsAnzeigen() = intErgebnis
 End Function