Where are iNotes recent contacts stored?

HCL Domino Domino Forum
1

I have a person who has some incorrect email addresses in the recent contacts list that appears in the drop down list when selecting the “To” field in a new email.

I know that in the Notes client they are in the local names.nsf, but can’t find them in iNotes.

I’ve been trawling through the IBM support pages, Lotus Wiki’s, PlanetLotus etc. and have been unable to find out where are these stored?

Thanks

2

Subject: Profile document

You can get to them through the Preferences in iNotes.

They are ultimately stored in a profile document named dips - cn=bruce wyane/o=gotham (with the user’s canonical name)

3

Subject: Problem now fixed

Thanks for the information. After writing the code below I’ve just spotted where they are in the Preferences (for future reference, expand the Basics tab and select the Type-ahead option).

However, you have to be logged in as the user to change the recent contacts so the following code was the only way after all. It’s a quick fix bit of code…

Create a LotusScript agent to run Action Menu Selection and Target of None:

Sub Initialize

On Error Goto errHandle



Const CN_USER_NAME = "cn=name/o=organisation"	' name of the mail user



Dim sess As New NotesSession				

Dim dbCur As NotesDatabase				

Dim docProfile As NotesDocument				

Dim iResponse%

Dim araRecentContacts(1) As String ' set "1" to the number of recent contacts - 1



Set dbCur = sess.CurrentDatabase



Set docProfile = dbCur.GetProfileDocument("dips", CN_USER_NAME)



If docProfile Is Nothing Then

	Msgbox "Unable to retreive DIPS profile document for " & CN_USER_NAME

	Exit Sub

End If



' using NotesPeek open the users mail file, goto Profile documents

' select "dips - cn=name/o=organisation", select "DPAB"

' copy the value field to Notepad and remove all invalid entries

' and then paste the value entries as seperate entries in the following:

araRecentContacts(0) = {CN=Name1/O=Organisation@NoteDomain:Count}

araRecentContacts(1) = {CN=Name2/O=Organisation@NoteDomain:Count}



Call docProfile.ReplaceItemValue("DPAB", araRecentContacts)

Call docProfile.Save(True, True)



Msgbox "iNotes Recent Contacts successfully updated"



Exit Sub

errHandle:

Msgbox "Error " & Error & " (" & Cstr(Err) & ") at line " & Cstr(Erl)

Resume Next

End Sub