Lotus Instant Messaging/Web Conferencing (Sametime): Building Sametime Enabled Applications

146 Lotus Instant Messaging/Web Conferencing (Sametime): Building Sametime-Enabled Applications

Example 6-6 Click button event

Sub Click(Source As Button)

Dim session As New NotesSession

Dim db As NotesDatabase

Dim agent As NotesAgent

Dim ws As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim paramid As String

Set uidoc = ws.CurrentDocument

Set doc = uidoc.document

Call doc.save(True, False)

Call uidoc.save

Call uidoc.close

paramid = doc.Noteid

Set db = session.CurrentDatabase

Set agent = db.GetAgent("AnnouncementSender")

Call agent.run(paramid)

End Sub

When the button is clicked, the document is saved and the

AnnouncementSender agent is called. The agent ...