How to run agent on all Lotus mailboxes
How can I run a local script to show mailbox quota size on all user mailboxes as an Administrator?
Sub Initialize
Dim Session As New Notessession
Dim db As NotesDatabase
Set db=session.CurrentDatabase
Messagebox "Size quota = " & db.SizeQuota & chr(10) & _
"Size Warning = " & db.SizeWarning,, db.Title
End Sub
Software/Hardware used:
Software/Hardware used:
ASKED:
May 13, 2009 7:27 AM
UPDATED:
May 22, 2009 1:24 PM
Answer Wiki:
Last Wiki Answer Submitted:
Be the first to answer this question.
All Answer Wiki Contributors:
Be the first to answer this question.
To see all answers submitted to the Answer Wiki: View Answer History.
Is there a method to run agents on multi mailboxes in general?
Ideally, is there a ready-made Administrator report to show this user data? (Current Mailbox Size, Quota Size, Threshold Size.)
Many Thx, GCT
The admin client preferences (FILE–>PREFS–>Admin Prefs–>FILES) allow you to select columns to add or remove from view in the FILES tab. Quota, Warning, & Logical size are all available. Once you have the FILES view looking the way you want to report, you can do a file–>print if you like. It does not export to a spreadsheet format (at least I have not found an option on how to do that yet). HTH
Just thought of this too as far as how to do it via code…. You could put this type of wrapper around the code you wish to run. It will cycle through all the DB’s on the current server.
Sub Initialize
Set session = New notessession
Set dbCurrent = session.currentdatabase
Set dirList = session.Getdbdirectory(dbCurrent.Server)
Set dbLookup = dirList.GetFirstDatabase(DATABASE)
On Error Resume Next
While Not (dbLookup Is Nothing)
****Insert what you want it to do here******
Set dbLookup = dirList.GetNextDatabase
Wend
End Sub
BTW- the ‘DATABASE’ is a Notes constant. For more info, check out the GetFirstDatabase method in designer help.