 |
|
| Domino Tips: |
|
|
|
SMART ICONS
Get the size of a user's mail database while in the Domino Directory
Scott Thompson
11.13.2001
Rating: -3.75- (out of 5)
|
Have you ever been in the Domino Directory and wanted to know the size of a mail database without having to go out and do a database properties check? Maybe you have the smart icon that opens the user's mail database from the address book and you're wondering if you should open up the database - what if it's 600 mb? Here's a way to use a smarticon to check the size of a mail database while in in the Domino Directory. The instructions are in the code. The only caveat is that it will give an ESA and you will need to click on "Trust Signer" if you want, or "Execute Once" if you want to maintain security of No Signature for "Access to current database" and Access to external code".
Code
%REM
***** SUMMARY *****
SET Consulting, Inc. Scott E. Thompson
This script will get the size of the database on selected person documents in
the Domino directory.
It can be implemented in two ways:
1) put as an agent in the Domino Directory and run from a menu or
create an action in a view to run the agent
(however, you may not want to modify your directory)
or
2) it can be placed as an agent in the Notes administrator's mail file
and then create a smart icon that calls to the agent.
HOW TO DO THIS:
a. Create a shared agent in the mail file and paste this script into
the "Initialize" section between Sub and End Sub. (It must be
set to run LotusScript)
b. Have the agent run "Manually From Agent List"
c. Save the agent as "Check Size"
d. Create a smart icon by choosing File, Preferences, SmartIcon Settings
e. Pick an icon in "Available Icons" column and drag
it to the right column
f. Click on the newly added icon in the right column
g. Click on "Edit Icon"
h. Type in a description in the Description field (e.g. Check size
of mail database)
g. Click on the "Formula" button
h. Add the following command: @Command([ToolsRunMacro];"(Check Size)")
i. Click OK, Click on Done
j. Save the Icon set, and click OK
%END REM
Dim Session As New NotesSession, db As NotesDatabase, doc As NotesDocument
Dim dc As NotesDocumentCollection, server As String, path As String,
title, lastname, firstname As String
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
For i = 1 To dc.Count
Set doc = dc.GetNthDocument(i)
server = doc.MailServer(0)
path = doc.MailFile(0)
lastname = doc.LastName(0)
firstname = doc.FirstName(0)
Dim userDb As New NotesDatabase( server, path )
Messagebox( "The size of the Mail Database " & firstname & " "
& lastname & " is " & userDb.Size/1048576 & " Megabytes.")
Next
|
|
Rate this Tip
|
To rate tips, you must be a member of SearchDomino.com.
Register now
to start rating these tips. Log in if you are already a member.
|
DISCLAIMER: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.
|
|
|
|
|
|
|
|
|
|
| TechTarget provides enterprise IT professionals with the information they need to perform their jobs - from developing strategy, to making cost-effective IT purchase decisions and managing their organizations' IT projects - with its network of . |
|
| | |
All Rights Reserved, , TechTarget |
|
|
|
|
|
