How to Sync address book and iNotes contacts automatically for all users

Vladislavs Tatarincevs  11 February 2009 19:21:28

Some weeks ago, we were doing Exchange->Domino migration with my colleague,
All migrated contact were stored in mail file, we need to make them sync with local names.nsf

There is a check box in replication tab

you can enable it in preferences
But what to do if you need this for 300 users? or 1000?


I have found where this check box is stored, (local names.nsf), but I was unable to enable this check with LotusScript.

Then I remembered the KISS, KEEP IT SIMPLE, STUPID. Let's do not make complex things.

I wrote and agent, which is triggered on mail file dbClose event.
I used registration class, because it can be stored also in other databases, like help desk, or somethink.
you can modify it and use
Session CurrentDatabase.

If you place this script in QueryDatabaseClose event, it will sync you contacts.

Vlad



Const server="DOMINO/Organization"
 Dim session As New NotesSession
 Dim reg As New NotesRegistration
 Dim mailfile As String
 reg.RegistrationServer = server
 Call reg.GetUserInfo( session.UserName, ,  mailfile, , , )
 Dim db As New NotesDatabase( server, mailfile )
 
 Dim agent As NotesAgent
 Set agent = db.GetAgent("(Synchronize Address Book)")
 If agent.Run = 0 Then
  Print "Agent ran",, "Success"
 Else
  Print "Agent did not run",, "Failure"
 End If
End Sub

• Comments [1]