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

See Also

IsActivatable property

Glossary