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)
' *** PLEASE TEST BEFORE USING! ***
' (c) 1999 wareSource - www.waresource.com 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)
Wend
End Sub
This was first published in November 2000

Dig deeper on Lotus Domino Directory

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com'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 ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close