Question : Trouble getting Reader Field to update to new Role

Have used the agent below in the past to update the readers field to a new role. I first run an agent that just clears out the "groups" field. I then run this agent, but it is not updating the Readers field. It is just creating a new text field with exactly the same name. Am I missing something here? Can't figure this one out. Have not used it since we went from 6.5 to 8 late last year.   
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim collection As NotesDocumentCollection
	Dim readersItem As NotesItem
	Set db = session.CurrentDatabase
	Set collection = db.UnprocessedDocuments
	Set doc = collection.GetFirstDocument()
	While Not(doc Is Nothing)
		tmpReader = doc.groups(0)
		If tmpReader = "" Then
			Set readersItem = New NotesItem(doc, "groups", "[FDG]", READERS)		
			Call doc.Save(True,True)
		End If
		Set doc = collection.GetNextDocument(doc)
	Wend
End Sub

Answer : Trouble getting Reader Field to update to new Role

Hi,

quite often I have found that disabling the windows firewall in Win7 doesn't actually disable the firewall!
Ghost sends UDP traffic on ports 6666 and 6667, try sending up inbound and outbound rules that allow traffic for these ports.

M@
Random Solutions  
 
programming4us programming4us