How to determine folder where a message is?

[Rav]

I'm using Lotus Notes 7.0.3 HF77 November 28, 2007. If I open View, All
Documents, and do a search using Search This View, there is no column
displaying which folder each message is in. I can't find a way to add
such a column, or any other way of finding out which folder a message is
in (even one message at a time). Anyone know? Thanks. p
.
** Posted from http://www.teranews.com **

[Andy Mic]

First, you need to use lotus script to enable, folder reference at the
database properties.

db.FolderReferencesEnabled = true

The database must have the $FolderInfo and $FolderRefInfo hidden views
to support folder references. These views can be copied from the mail
template. This property does not return view references.
The database must be at the Release 5 file format level or greater.
Maintaining folder references impacts performance.
The database must be open to use this property.

Following is an example extracted from the designer help db.

Examples: FolderREferencesEnabled property

The following script creates a new document in the database; puts it
into "view1", "view2", and "view3" folders; and then prints out all
folder references and a count for each document.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
If(db.FolderReferencesEnabled) Then
Messagebox "Folder References enabled"
Else
Messagebox "Folder References are not enabled"
Messagebox "Enabling Folder References"
db.FolderReferencesEnabled = True
End If
db.FolderReferencesEnabled = True
Set doc = db.CreateDocument
If Not (doc Is Nothing) Then
Call doc.AppendItemValue("Name", "Test Document Name")
Call doc.AppendItemValue("Topic", "Test Document Topic")
Call doc.Save(True, True)
Messagebox "Adding document to views"
doc.PutInFolder("view1")
doc.PutInFolder("view2")
doc.PutInFolder("view3")
Call doc.Save(True, True)
End If
Dim doccoll As NotesDocumentCollection
Set doccoll = db.AllDocuments
Set doc = doccoll.GetFirstDocument
While Not (doc Is Nothing)
i=0
Forall FolderReference In doc.FolderReferences
i=i+1
Messagebox doc.noteid, " ", i, " ", FolderReference
End Forall
Set doc = doccoll.GetNextDocument(doc)
Wend
End Sub

Andy

[hunter...@gmail.com]

Starting with Notes 7 there is an action (Folders-Discover Folders) that
will display the folder name of the currently selected document.

Search for a message in the "All Documents" view and on the "action bar" there will be a folder icon. This drop down should have a function "Discover Folders" which will show what folder a message is in.

[jaytl...@gmail.com]

Excellent tip...just what I was looking for. Now if only Notes can prevent me from misfiling!

Thanks.

[ntr....@gmail.com]

Hi i just tried this and i get a message saying the document in not in any folder. I might add that the email i'm looking for is dtd 2012 and is "archived" but in my email folder account. i am reluctant to forward the relevant emails and set up a second folder so that i can find these docs. currently my email inbox has close to 10K emails and probably 200 folders. Obviously it would take an inordinate length of time to find which folder the docs are that i'm looking for. any time-saving tips for me?