Scenario:
Customers appreciate the new User Experience of IBM Verse, but the moment they start using it, the first problem they face is that while typing name, recent contacts are not available, which are there in Notes Client. So, customers were forced to either search customer emails or copy from Notes Client.
To avoid the same, I created a script to copy the Recent Contacts to My Contacts and Sync it to Server.
Steps are as follows: :
1.Create a Notes button using following code to Migrate Recent Contacts in Notes Client to My Contacts.
| Sub Click(Source As Button)
Dim s As New NotesSession
Dim vw As NotesView
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim doc2 As NotesDocument
On Err Goto ErrHandler
Dim total As Integer, cnt As Integer
msg = "Please ensure that you don't run this code multiple times, else it will create duplicates in your Addressbook. " + Chr(10) & _
"Are you sure to run this code ?"
If Messagebox(msg, 36, "Are you sure ? ") = 7 Then
Msgbox "The action has been cancelled", 64, "Cancelled"
Exit Sub
End If
Set db = s.GetDatabase("", "names.nsf")
Set vw = db.GetView("RecentCollaborators")
total = vw.AllEntries.Count
cnt = 0
Set doc = vw.GetFirstDocument
While Not doc Is Nothing
cnt = cnt + 1
Print "Processing " & cnt & " / " & total & " document"
Set doc2 = vw.GetNextDocument(doc)
RCtype = doc.GetItemValue("type")
If Lcase(RCtype(0)) = "group" Then
'Skip the doc
Else
'Move to My Contacts
Call RCReplace(doc, db)
End If
NextDoc:
Set doc = doc2
Wend
Messagebox "Migration process has completed.", 64, "Complete"
Exit Sub
ErrHandler:
Goto NextDoc
End Sub Sub RCReplace(RCDoc As notesdocument, db As NotesDatabase)
On Error Resume Next
Call RCDoc.replaceitemvalue("Form", "Person") 'DNT
If Lcase(rcDoc.getitemvalue("Type")(0)) <> Lcase("PeRsOn") Then
Call RCDoc.replaceitemvalue("Type", "Person") 'DNT
'this code is in place for Mail-In Database records, with only hierarchical name in Fullname item
RCFN = rcdoc.getitemvalue("Fullname")
If Ubound(RCFN) = 0 Then
Dim FNname As New notesname(RCFN(0))
CanonFN = FNname.canonical
If CanonFN <> "" Then
Redim NewFN(1)
End If
NewFN(0) = FNname.canonical
NewFN(1) = FNname.common
Call RCdoc.replaceitemvalue("Fullname", NewFN)
End If
' /end Mail-In Db specific code
End If
Call RCdoc.replaceitemvalue("$AutoCreatedList", "")
Call RCdoc.replaceitemvalue("$DPABState", "")
Call RCdoc.replaceitemvalue("$DPAB_State", "")
Call RCDoc.save(False,False)
Set newContact = RCdoc.CopyToDatabase( db )
Call RCDoc.remove(True)
End Sub |
Note: Click "Yes" if any prompt comes up for Trusting Code.
2. Goto Notes Client --> File Menu --> Preferences.
3. Open Contacts section and ensure "Enable Synchronize Contacts" option is enabled.
4. Goto Replication and Sync Tab and ensure that "Synchronize Contacts Replication is Enabled.
5. Once Synced, All the Recent Contacts will be available in IBM Verse as well !
For more details, refer to IBM Wiki.
