Programmtechnisch ist es dann ganz einfach, die Anzahl der Dokumente im betreffenden Folder zu checken:
Dim session As New NotesSession
Dim dbCurrent As NotesDatabase
Dim viewFolder As NotesView
Dim vecFolderEntries As NotesViewEntryCollection
Set dbCurrent = session.CurrentDatabase
Set viewFolder = dbCurrent.GetView ("Test-Ordner")
If viewFolder Is Nothing Then
Messagebox "Der angegebene Ordner wurde nicht gefunden!"
Exit Sub
End If
Set vecFolderEntries = viewFolder.AllEntries
Messagebox "Der Ordner enthält " & Cstr (vecFolderEntries.Count) & " Dokumente."
Nur: Wie kannst oder wie willst Du dann die ermittelte Anzahl. die hier nur in einer Messagebox angezeigt wird, an dieses Macro Express übergeben? Wir haben ja keine Ahnung, wie dieses Teil funktioniert ...
Bernhard