.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: GetPerformanceDocument method
The following code opens the profiling results for an agent as a UI document.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim agent As NotesAgent
 Dim doc As NotesDocument
 Dim ws As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Dim agentNames() As String
 Dim i As Integer
 Set db = session.CurrentDatabase
 
 ' Build list of agent names and have user select one
 i = 0
 Forall a In db.Agents
   Redim Preserve agentNames(0 To i)
   agentNames(i) = a.Name
   i = i + 1
 End Forall
 title = ws.Prompt(PROMPT_OKCANCELLIST, "Agent name", _
 "Select the agent to be viewed", agentNames(0), agentNames)
 If Isempty(title) Then Exit Sub
 
 ' Get the selected agent then its performance document
 Set agent = db.GetAgent(title)
 Set doc = agent.GetPerformanceDocument
 If doc Is Nothing Then
   Messagebox "No profiling results",, title
   Exit Sub
 End If
 
 ' Open the performance document for viewing
 Set uidoc = ws.EditDocument(False, doc)
End Sub

See Also