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

関連項目

IsActivatable プロパティ

用語集