Hi,
das geht wie folgt:
Sub Postdocumentdelete(Source As Notesuidatabase)
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set uiview = ws.CurrentView
Set dc = Source.Documents
Msgbox "Aus folgender Ansicht wurde gelöscht: " & uiview.Viewname
Set doc = dc.GetFirstDocument
While Not (doc Is Nothing)
if doc.HasItem("Form") then
Msgbox "Folgende Maske: " & doc.Form(0)
elseif doc.HasItem("$Title") then
Msgbox "Folgende Maske: " & doc.GetItemValue("$Title")(0)
end if
Set doc = dc.GetNextDocument(doc)
Wend
End Sub
Andreas