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

See Also

IsNotesAgent property

Glossary