Skip to main content

Examples: Owner property

  1. This script gets the name of the person who last modified the current agent. For example, if Yukiko Kitarmura/Tokyo/Production created the agent and then Mariko Ikebuchi/Tokyo/Production modified it, Mariko is considered to be the owner and the CurrentAgent property returns "CN=Mariko Ikebuchi/OU=Tokyo/O=Production."
' created by Yukiko Kitamura 11/28/95
' modified by Mariko Ikebuchi 12/17/95
Dim session As New NotesSession
Dim agent As NotesAgent
Dim owner As String
Set agent = session.CurrentAgent
owner = agent.Owner
  1. This agent script goes through the unprocessed documents in the current database and logs an action for each document it processes. The script uses the Owner property to send the log to the owner of the agent.
Sub Initialize
Dim session As New NotesSession
Dim agent As NotesAgent
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim currentLog As NotesLog
Dim doc As NotesDocument
Set agent = session.CurrentAgent
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set currentLog = New NotesLog( "Log for " & agent.Name )
Call currentLog.OpenMailLog _
( agent.Owner, currentLog.ProgramName )
For j = 1 To collection.Count
Set doc = collection.GetFirstDocument()
'...do whatever to the document...
Call session.UpdateProcessedDoc( doc )
Call currentLog.LogAction _
( "Processed " & doc.Subject( 0 ) )
Next
Call currentLog.Close
End Sub

For example, if the agent is called "Brandon's Agent," is owned by Brandon Herkle, and processes three documents, Brandon receives a mail memo with the subject "Log for Brandon's Agent" that has the following Body:

08/10/95 04:35:02 PM Log for Brandon's Agent starting

08/10/95 04:35:02 PM Processed Status Report for Anthony Pycha

08/10/95 04:35:02 PM Processed Status Report for David Dinauer

08/10/95 04:35:02 PM Processed Status Report for Mary Jo Mastro