Vince's
Ramblings.

CRM databases are often used as secondary addressbooks to ease mailing. You only need a subset of views to be able to mail to any contact in the database without storing the e-mail address locally.
In this case I wanted to use the application to enable authentication (extranet), and to my suprise it didn't work.

After a lot of strong words and clearing of caches it turns out you have to add the Serveraccess view plus create a Directory profile to get this to work.

So here are the final specs to enable 'any' database as secondary address book:

1. Create/copy the following views from the Public Address Book:
($Groups)
($Users)
($ServerAccess)
And make sure they are populated so the Domino server can validate the contents

2. Create the directory profile:
- Copy the ($DirectoryProfile) form
- Create the profile (see code below)

Dim s As New notessession
Dim db As notesdatabase
Set db = s.CurrentDatabase
Set profile=db.GetProfileDocument("DirectoryProfile")
Call profile.ReplaceItemValue("Form", "DirectoryProfile")
Call profile.ComputeWithForm(False, False)
Call profile.Save(True,True,True)