How to write an agent that shows # of msgs over a certain date old

Posted on 2001-07-10
Last Modified: 2013-12-18
Please show me the Lotus Script for a server-side agent that :

Creates a .txt report showing....
1) MailBox .nsf name
2) Number of messages over 1 year old

I need the script to look at all mail files in the /mail directory and report on all of them.
Not too swift with Lotus Script so don't be afraid to be specific.

Question by:a6106a

Expert Comment

ID: 6270966
It is possible to write a scheduled agent using the notesDbdirectory class and the read & write statements in LS. However, this agent will take a very long time to process the files if there are too many mail files and/or if the size of the mail files are too large. I would recommend an admin tool to get this kind of information unless you need this as a part of an application...

LVL 24

Expert Comment

ID: 6271631

Create agent with following options:

Acts On:     All documents in database
Simple Action:     Send Newsletter Summary
Add Search: Date.. date created is older than 365 days

For the news letter summary you can define subject as formula like this
"Mail Log for : " + Subject

Create a special hidden view which will collect information about all the documents in the database and use this as a template for summary

Create a mail in database, and route all the mails to this database


LVL 24

Expert Comment

ID: 6271632
This design change should be done in the template and propogated to every database and the agent can be scheduled for your convenience.

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

LVL 10

Expert Comment

ID: 6272213
increase the points to: 300 <|;-)

Author Comment

ID: 6274465
definately getting there...
I have done it so that I get a message with links to all of the files within the time frame.
How do I make the message not show me links to all of the documents but simply give me a total of the number of docs that fit the date range?
LVL 24

Accepted Solution

HemanthaKumar earned 100 total points
ID: 6277039
Use this script instead of simple action sending news letter summary.

Dim session as New NotesSession
Dim db as NotesDatabase
Dim col as NotesDocumentCollection
Dim doc as NotesDocument
Dim rtitem as NotesRichTextItem

set db = session.CurrentDatabase
set col = db.UnprocessedDocuments
set doc = db.CreateDocument
doc.Form = "Memo"
doc.Subject = "Mail log for: " + db.Title
set rtitem = New NotesRichtextItem(doc, "Body")
call rtitem.AppendText("Number of documents that were one year old as of " & now & " are " & col.Count
Call rtitem.AddNewLine(2)
Call rtitem.AppendText("Link to the mail db: ")
Call rtitem.AppendDocLink(db, db.Title)
Call doc.Send(false)

PS: Rest of the setup remains same. Except that you will be using script instead of simple action so that you will get only the count


Expert Comment

ID: 6857631
Question(s) below appears to have been abandoned. Your options are:
1. Accept a Comment As Answer (use the button next to the Expert's name).
2. Close the question if the information was not useful to you. You must tell the participants why you wish to do this, and allow for Expert response.
3. Ask Community Support to help split points between participating experts, or just comment here with details and we'll respond with the process.
4. Delete the question. Again, please comment to advise the other participants why you wish to do this.

For special handling needs, please post a zero point question in the link below and include the question QID/link(s) that it regards.
Please click the Help Desk link on the left for Member Guidelines, Member Agreement and the Question/Answer process.

Please click you Member Profile to view your question history and keep them all current with updates as the collaboration effort continues, to track all your open and locked questions at this site.  If you are an EE Pro user, use the Power Search option to find them.

To view your open questions, please click the following link(s) and keep them all current with updates.

To view your locked questions, please click the following link(s) and evaluate the proposed answer.

------------>  EXPERTS:  Please leave any comments regarding your closing recommendations if this item remains inactive another seven (7) days.  Also, if you are interested in the cleanup effort, please click this link
Thank you everyone.
Moderator @ Experts Exchange

P.S.  For any year 2000 questions, special attention is needed to ensure the first correct response is awarded, since they are not in the comment date order, but rather in Member ID order.

Expert Comment

ID: 6906018
Admin notified of User neglect. Force-accepted by
CS Moderator

Featured Post

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

  In today’s Arena we can’t imagine our lives without Internet as we are highly used to of it. If we consider our life style just for only 2 min we found that face to face communication is swapped by e-communication.  Every Where from Works place to…
Article by: Rob
Notes 8.5 Archiving Steps and Tips This article covers setting up a Notes archive, and helps understand some of the menu choices making setting up and maintaining a Notes archive file easier.
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

785 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question