例: IsNotesAgent property

次のスクリプトは、現在のエージェントが Notes エージェントであるかどうかを示します。

Dim session As New NotesSession
Dim agent As NotesAgent
Dim db As NotesDatabase
Set agent = session.CurrentAgent
  If agent.IsNotesAgent Then
    Messagebox "This is a Notes agent."
  Else
    Messagebox "This is not a Notes agent."
End If