Bringing You Tips from Around the World07/13/2005 10:20:26 PMLocation : Cleveland, OH
SearchDomino had a couple of pretty good Administrator tips this time around. So, for those of you that don't subscribe to that newsletter, here they are. Hope that they help.
Trick the users NOT to reply to a message with the attachment (thus, increasing the mail file sizes of a few users). This comes from Margie Walsh.
In the Notes 6 mail template, I went into the Shared Actions and changed the labels on the "Reply with History" and "Reply without Attachments" actions. So my "Reply with History" button uses the code from the original "Reply without Attachment" and I have a "Reply with Attachment" action which is just the original "Reply with History" action. My users hardly noticed and they don't send those attachments back with their replies anymore.
No coding required!
I like that one, subversive and effective! :-) And now for the other one on my Hit Parade. This one was posted by Brittany Lazarski to clean up dead messages in your mail.box files. It is a very popular topic on the forums, even with some settings in Domino R6 (which really reduced the number you should be seeing). To see this one, because of the code, you will have to Read More.
Deleting Dead Mail from Mail.Box
If you have several mail.boxes on your server and want your administrator to be able to occasionally run a manual agent to delete all dead messages, this agent will work for you. This agent prints the number of deleted messages to the status bar for each mail.box and then prompts the user with the total deletions from all. Just put this agent in it's own database on the server and manually run it.
Code:
Sub Initialize
Dim nsSession As New NotesSession
Dim ndbDb As NotesDatabase
Dim ndcMessages As notesdocumentcollection
Dim ndocFirstDoc As notesdocument
Dim ndocNextDoc As notesdocument
Dim ws As New NotesUIWorkspace
Dim iCollCount As Integer
finalcount=0
'For all mail.boxes, find all dead messages and delete them. We have 3 mail.boxes, so replace 3 with the number you have.
For i=1 To 3
iCollCount = 0
'Get handle to mail.box
filename = "mail"+i + ".box"
Set ndbDb= nsSession.GetDatabase("serverNameHere", filename)
If ndbDb.IsOpen Then
'Search string
Const messages= |@Contains(RoutingState; "DEAD")|
'Set document collection
Set ndcMessages = ndbDb.search( messages, Nothing, 0 )
'Grab # of docs to be deleted
iCollCount = ndcMessages.count
'Delete all documents in the collection, because they are dead messages
ndcMessages.RemoveAll(True)
'Print the number of deleted messages to the status bar
Print Cstr(iCollCount)+ " dead messages deleted from "+filename
End If
finalcount = finalcount+iCollCount
Next
p = ws.Prompt(PROMPT_OK, "Complete", Cstr(finalcount)+" dead messages have been deleted.")
End Sub
Comments
No documents found
Powered By : Domino
BlogSphere V1.3.1
Join The WebLog Revolution at BlogSphere.net
- 