Sub Initialize
Dim db As New NotesDatabase("Cathy/Otus", _
"Test\TestMarkForDelete.nsf")
If db.IsOpen Then
Call db.MarkForDelete()
Messagebox db.IsInService,, "Is in service"
Messagebox db.IsPendingDelete,, "Is pending delete"
Else
Messagebox "Could not open",, "TestMarkForDelete.nsf"
End If
End Sub

関連項目

MarkForDelete メソッド

用語集