Solved

Lotus Notes 6.5 - No option to empty trash on exit

Posted on 2009-05-07
9
845 Views
Last Modified: 2013-12-18
Hello, My Lotus notes 6.5 does not give me the option to delete my trash on exit, even though I have set it to do so in the preferences.  I can delete trash manually from within notes however.  I have tried uninstalling notes and reinstalling to no avail. Any suggestions. Thanks
0
Comment
Question by:JohnDoody
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
9 Comments
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 24333920
Maybe you have to upgrade to R6.5.5 or higher... I can't find this in the fix lists available, though.

You could also change the number of days mails are to be kept in the trash, e.g. to one. It can be done in the Database Properties, last tab, at the bottom. If you're afraid someone else may inspect your mails, the solution would be to encrypt your database. Or your mails upon arrival.
0
 
LVL 22

Expert Comment

by:mbonaci
ID: 24334095
I suppose you tried to
 disable the property
 close the notes
 open notes
 enable the property

If that wont do the job, then, if you have Designer installed, you can alter the Database Script (Other > Database resources > Database Script) to respond to database closing event.
The event is called Queryclose.

There, you'll have to add the code posted bellow.

After you finish adding the code, saving the Database Script and closing it, right click on it and select "Design element properties".
There, on the third tab, check option "Prohibit design refresh replace to modify".
That option disallows designer task (runs at night) to change design element.

Hope this helps,
Mb¤


Dim trash As NotesView
Dim cur As NotesDocument, tmpDoc as NotesDocument
 
Set trash = db.GetView( "($Trash)" )
 
Set cur = trash.GetFirstDocument
Do Until cur Is Nothing
  Set tmpDoc = cur
  Set cur = trash.GetNextDocument(cur)
  Call tmpDoc.RemovePermanently( True )
Loop

Open in new window

0
 
LVL 22

Expert Comment

by:mbonaci
ID: 24334129
I altered one line.
QueryClose should look like this:
Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
	Dim trash As NotesView
	Dim cur As NotesDocument, tmpDoc As NotesDocument
	
	Set trash = source.Database.GetView( "($Trash)" )
	
	Set cur = trash.GetFirstDocument
	Do Until cur Is Nothing
		Set tmpDoc = cur
		Set cur = trash.GetNextDocument(cur)
		Call tmpDoc.RemovePermanently( True )
	Loop
End Sub

Open in new window

0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 22

Expert Comment

by:mbonaci
ID: 24334183
One more improvement.
I had to modify because if you have Soft Deletions enabled, then deleted docs are stored in a different folder:
Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
	Dim trash As NotesView
	Dim cur As NotesDocument, tmpDoc As NotesDocument
	Dim folderName As String
	Dim ret As Variant
	
	ret = Evaluate(|@If(@TextToNumber(@Version) > 167; @If(@IsSoftDeleteEnabled; 0; 1); 1)|)
	
	If ret(0) Then
		folderName = "($Trash)"
	Else
		folderName = "($SoftDeletions)"
	End If
	
	Set trash = source.Database.GetView( folderName )
	
	Set cur = trash.GetFirstDocument
	Do Until cur Is Nothing
		Set tmpDoc = cur
		Set cur = trash.GetNextDocument(cur)
		Call tmpDoc.RemovePermanently( True )
	Loop
End Sub

Open in new window

0
 
LVL 22

Expert Comment

by:mbonaci
ID: 24334190
Please tell me that you have access to database design :))
0
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 24343130
LOL
0
 
LVL 15

Accepted Solution

by:
akhafaf earned 500 total points
ID: 24614044
Did you try to do the following :

1- Refresh the design
2-replace the design
3- Rebuild the views ( Shift+Ctrl+ F9)

If this doesn't really work upgrade the whole client to LN 6.5.6 or you could suggest to have the whole Lotus notes upgraded to version 8.5 which could solve this problem .
0
 
LVL 22

Expert Comment

by:mbonaci
ID: 24635719
Is this resolved?
0
 

Expert Comment

by:admresdev
ID: 25919855
Hi.
I have the same problem.
I have added the code above and trash is now being emptied on closing. The only problem is that it empties trash without prompting even if the user sets 'Prompts me during database close"
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

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

Lack of Storage capacity is a common problem that exists in every field of life. Here we are taking the case of Lotus Notes Emails, as we all know that we are totally depend on e-communication i.e. Emails. This article is fully dedicated to resolvin…
This article covers general Notes 8.5 troubleshooting information including recreating the Notes\Data folder.
If you're a developer or IT admin, you’re probably tasked with managing multiple websites, servers, applications, and levels of security on a daily basis. While this can be extremely time consuming, it can also be frustrating when systems aren't wor…
In this video, viewers are given an introduction to using the Windows 10 Snipping Tool, how to quickly locate it when it's needed and also how make it always available with a single click of a mouse button, by pinning it to the Desktop Task Bar. Int…

695 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