LOTUSSCRIPT /COM/OLE のクラス

例: IsProtected プロパティ
次のエージェントは Subject アイテムの IsProtected プロパティを切り替えます。

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 protected ... unprotecting"
   item.IsProtected = False
 Else
   Print "Subject is not protected ... protecting"
   item.IsProtected = True
 End If
 Call doc.Save(True, True, True)
End Sub

関連項目