How to determine folder where a message is?

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 **

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

Database.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 Database.

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 Database As NotesDatabase
Dim doc As NotesDocument
Set Database = session.CurrentDatabase
If(Database.FolderReferencesEnabled) Then
Messagebox "Folder References enabled"
Else
Messagebox "Folder References are not enabled"
Messagebox "Enabling Folder References"
Database.FolderReferencesEnabled = True
End If
Database.FolderReferencesEnabled = True
Set doc = Database.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 = Database.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

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

Database.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 Database.

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 Database As NotesDatabase
Dim doc As NotesDocument
Set Database = session.CurrentDatabase
If(Database.FolderReferencesEnabled) Then
Messagebox "Folder References enabled"
Else
Messagebox "Folder References are not enabled"
Messagebox "Enabling Folder References"
Database.FolderReferencesEnabled = True
End If
Database.FolderReferencesEnabled = True
Set doc = Database.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 = Database.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