例: IsActivatable property (NotesAgent - LotusScript®)

次のエージェントは、エージェントの起動が有効であるかどうかを調べます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim agent As NotesAgent
  Set db = session.CurrentDatabase
  Set agent = db.GetAgent("Get file path")
  If agent.IsActivatable Then
    Messagebox "Is activatable",, agent.Name
  Else
    Messagebox "Is not activatable",, agent.Name
  End If
End Sub