LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Dim dc As NotesDocumentCollection Set dc = db.UnprocessedDocuments Dim doc As NotesDocument Set doc = dc.GetFirstDocument If db.GetOption(DBOPT_SOFTDELETE) Then If Messagebox("Do you want a hard deletion?", _ MB_YESNO + MB_ICONQUESTION, "Hard or soft") = IDYES Then Call doc.RemovePermanently(True) Else Call doc.Remove(True) End If Else Call doc.Remove(True) End If End Sub
See Also