例: IsSigned property

次のエージェントは Subject アイテムに署名するかどうかを切り替えます。

Sub Initialize
  Dim session As New NotesSession
  Dim doc As NotesDocument
  Dim item As NotesItem
  Set doc = session.DocumentContext
  Set item = doc.GetFirstItem("Subject")
  If item.IsSigned Then
    Print "Subject is signed ... unsigning"
    item.IsSigned = False
  Else
    Print "Subject is not signed ... signing"
    item.IsSigned = True
  End If
  Call doc.Sign
  Call doc.Save(True, True, True)
End Sub