LOTUSSCRIPT/COM/OLE CLASSES
Examples: NotesAgent class
1. This script finds the Cleansing Agent in the current database and assigns it to the agent object. It uses the Agents property defined in NotesDatabase.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = session.CurrentDatabase
Forall a In db.Agents
If ( a.Name = "Cleansing Agent" ) Then
Set agent = a
Exit Forall
End If
End Forall
2. This agent script gets the current agent, puts it into the agent object, and then gets its name. For example, if this script runs as part of the Ticket agent, the Name property returns "Ticket."
Dim session As New NotesSession
Dim agent As NotesAgent
Dim n As String
Set agent = session.CurrentAgent
n = agent.Name
See Also
NotesAgent class
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary