Agent to add readers field

HCL Domino Domino Forum
1

Hello! I have a problem with an agent to create a readers field.

I created the agent :

Dim doc As NotesDocument

Dim newValues( 1 To 2 ) As String

newValues( 1 ) = “User 1”

newValues( 2 ) = “User 2”

Dim readersItem As New NotesItem(doc, “docReaders”, newValues, READERS)

Call doc.Save( True, True )

When the agent runs, the following error appears:

“Error Creating Product Object”.

Thank you!

Alicia

2

Subject: Agent to add readers field

Try this out.This should work…

Dim session As New NotesSession

Dim doc As NotesDocument

Set doc = session.DocumentContext

Dim newValues( 1 To 2 ) As String

newValues( 1 ) = "User 1"

newValues( 2 ) = "User 2"

Dim readersItem As New NotesItem(doc, "docReaders", newValues, READERS)

Call doc.Save( True, True )
3

Subject: RE: Agent to add readers field

Thank you!!! It’s working!!!

Alicia

4

Subject: RE: Agent to add readers field

Thank you!!! It’s working!!!

Alicia

5

Subject: Agent to add readers field

Alicia,

You need to create your document, something like this:

dim s as new notessession

dim db as notesdatabase

set db = s.currentdatabase

set doc = db.createdocument

hth,

raphael

6

Subject: RE: Agent to add readers field

Raphael,

The documents exist, I need to add an readers field to them.

Is it necessary add these sentences?

Thank you very much!

Alicia

7

Subject: RE: Agent to add readers field

When running the agent, are you using it against selected doc’s in a view, or from within an open document?

8

Subject: RE: Agent to add readers field

When running the agent, are you using it against selected doc’s in a view, or from within an open document?

9

Subject: RE: Agent to add readers field

I select the documents in a view.

Thanks!

10

Subject: RE: Agent to add readers field

If you are running this code in an agent that acts on selected documents in a view, you need a little more code.

Dim session As New NotesSession

Dim db As NotesDatabase

Dim coll As NotesDocumentCollection

Dim doc As NotesDocument

Dim readersItem As NotesItem

Dim newValues( 1 To 2 ) As String

newValues( 1 ) = “User 1”

newValues( 2 ) = “User 2”

Set db = session.CurrentDatabase

Set coll = db.UnprocessedDocument

Set doc = coll.GetFirstDocument

While Not (doc Is Nothing)

Set readersItem = New NotesItem(doc, “docReaders”, newValues, READERS)

Call doc.Save( True, True )

Set doc = coll.GetNextDocument(doc)

Wend

11

Subject: RE: Agent to add readers field

If you are running this code in an agent that acts on selected documents in a view, you need a little more code.

Dim session As New NotesSession

Dim db As NotesDatabase

Dim coll As NotesDocumentCollection

Dim doc As NotesDocument

Dim readersItem As NotesItem

Dim newValues( 1 To 2 ) As String

newValues( 1 ) = “User 1”

newValues( 2 ) = “User 2”

Set db = session.CurrentDatabase

Set coll = db.UnprocessedDocument

Set doc = coll.GetFirstDocument

While Not (doc Is Nothing)

Set readersItem = New NotesItem(doc, “docReaders”, newValues, READERS)

Call doc.Save( True, True )

Set doc = coll.GetNextDocument(doc)

Wend

12

Subject: RE: Agent to add readers field

I select the documents in a view.

Thanks!

13

Subject: Agent to add readers field

Try this out.This should work…

Dim session As New NotesSession

Dim doc As NotesDocument

Set doc = session.DocumentContext

Dim newValues( 1 To 2 ) As String

newValues( 1 ) = "User 1"

newValues( 2 ) = "User 2"

Dim readersItem As New NotesItem(doc, "docReaders", newValues, READERS)

Call doc.Save( True, True )