Manage Learn to apply best practices and optimize your operations.

R5 - Write Setup Profile Doc Name To Person Docs From View

When working with Setup Profiles and Dynamic Configuration of Notes clients,
Domino Administrator doesn't include the ability to set the Setup Profile names
in Person docs without manually editing each one. Borrrring.

This Action (part of the People view) lets you pick one or more Setup Profiles
and then writes the Setup Profile names to the Person document(s) selected in
the People View. Call the action something like "Choose Setup Profile".

This allows Dynamic Configuration to pick the Setup Profile information even
though you didn't originally create the Person using Setup Profiles.

Note: Any existing profile name is in the Person doc is overwritten, so be sure
to pick all the Setup Profiles that apply to all selected people!

Danger: The Actions menu in Domino Administrator has an entry "Remove
Profile". This has nothing to do with Setup Profiles, but rather removes the
Directory Profile! This is a BAD action, as it nukes all of your Directory
Profile settings for your Domino Directory (such as the Domain and Directory
Catalog names). grrrrrr. You should change the design of your NAB to ditch
this BAD action!
Sub Click(Source As Button)
' (c) 1999 wareSource - Permission granted to use freely in
non-commercial applications as long as this comment is retained
Dim w As New NotesUIWorkspace
Set UIView = w.CurrentView
If UIView.ViewName<>"People" Then
Msgbox "This Action can only be run from the People view!"
Exit Sub
End If
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim alldocs As NotesDocumentCollection
Set AllDocs = db.UnprocessedDocuments
If AllDocs.count = 0 Then
Msgbox "You have not selected any people."
Exit Sub
End If
Dim Doc As NotesDocument ' this will be each person doc
'get profile names from picklist of Profiles view
Server = db.Server
File = db.FilePath
ProfileList = w.PickListStrings( PICKLIST_CUSTOM, True, Server,File,
"Profiles", "Setup Profiles", "Select one or more profiles:", 1 )
' cycle through selected docs and set Profiles field
Set Doc = AllDocs.GetFirstDocument
While Not(Doc Is Nothing)
Set getProfiles = Doc.GetFirstItem("Profiles")
getProfiles.Values =ProfileList
Call Doc.Save(False, False) ' don't overwrite
Set Doc = AllDocs.GetNextDocument(Doc)
End Sub
This was last published in November 2000

Dig Deeper on Lotus Domino Directory

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.




  • iSeries tutorials'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 ...