Se om et dokument er soft-deleted

Du kan bruge NotesDocument.IsDeleted


  Dim Session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set collection = db.UnprocessedDocuments
  Set doc = collection.GetFirstDocument()
  Do While Not(doc Is Nothing)
    If doc.IsDeleted Then
      Messagebox "This document has been deleted"
    Else
      Messagebox doc.Subject(0) & _
      " has not been deleted"
    End If
    Set doc = collection.GetNextDocument(doc)
  Loop

Jeg er færdig med opgaven og har ikke tid til at teste det, men det ser meget fornuftigt ud - så du får points ;o)

Synes nu at jeg havde prøvet det uden held.... Men kan ikke huske det.

Hvis jeg kører agenten på dokumenter i $Trash, så kommer beskeden "This document has been deleted" tilhvertifælde frem :-)