Help creating a Nag Agent
Posted on 2006-10-27
I would like to create a Nag agent that will run daily to send an email to whoever is listed in the SendTo field of the document.
I have set up a view called "Nagview" which is correctly displaying a list of all the documents I wish to Nag about.
Now I need help with the agent which is to run through this view and send a document link to the relevant person along with an annoying message like "You have not updated this document for 30 days, please click the link below to do this now!"
Here is what I have written so far....am I going the right way here?
Any help towards this much appreciated!
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db= ses.CurrentDatabase
Set view= db.GetView("Nagview")
Set doc= view.GetFirstDocument
Do Until doc Is Nothing
Call doc.Send( False, [SendTo])
Set doc= view.GetNextDocument(doc)