Manage Learn to apply best practices and optimize your operations.

Using Unprocessed Docs

Whenever a new mail arrives in my mailbox, with its subject as "Business Contacts", I update the name of the sender in the members list, in the Group document named "Business" in the $Groups view of the Public Address Book.


' Initializing the objects
Dim s As New notessession
Dim pubdb As New notesdatabase("" , "") 'PAB
Dim dc As NotesDocumentCollection
Dim db As notesdatabase
Dim doc As notesdocument
Dim item As notesitem
Dim view As notesview

Set db = s.currentdatabase ' mail database serverName$ = db.Server

Set dc = db.UnprocessedDocuments
Call pubdb.open(servername$,"names.nsf")
For i = 1 To dc.Count
Set doc = dc.GetNthDocument( i )
subj=doc.getitemvalue("subject")
mfrom = doc.getitemvalue("from")

If subj(0) = "Business Contacts" Then

Set view=pubdb.getview("$Groups")
Set doc=view.getdocumentbykey("Business") 'Name of the Group
Set item =doc.getfirstitem("Members")
Call item.appendtotextlist(mfrom(0))
Call doc.save(True,False)
End If
Next
Call pubdb.Close

Dig Deeper on Lotus Notes Domino Administration Tools

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close