Not able to access the private folder , my name is appended using agent

HCL Domino Domino Forum
1

Not able to access the private folder , my name is appended in the private folder using an agent in the field view.Readers.But still when i switch to my id i am not able to see the private folder in which my name has been appended.the code is below. CN is name of the person who created the private folder & CN1 is my name getting appended.

Sub Initialize

On Err Goto e

Dim db As NotesDatabase

Dim s As New Notessession

Set db = s.CurrentDatabase

Dim newReaders(1) As String

Dim view As NotesView

newReaders(0) ="CN" 

newReaders(1) ="CN1"



Forall v In db.Views

	

	'$Reader 

	If v.IsPrivate Then

	'	Msgbox(" name " & v.name)

		Set view = db.GetView(v.name)

		view.Readers = newReaders

		Print " name " & v.name  '& " -   Readers -- " & Cstr(view.Readers )

	End If

	

	

End Forall

Exit Sub

e:

Msgbox("Line" & Cstr(Erl))

End Sub

2

Subject: Not able to access the private folder , my name is appended using agent

I have tested out your code and its working perfectly fine for me.

The names of “newReaders” must be in canonical format. After running this code check for “$Readers” field for changes.

I ran your code from client and so did step by step debugging. You can check out the same too.

–Phani