Create a Group based on a field (Company Name) in a Person Document

Language

LotusScript

Tags

lotusscript agent admin create a group companyname

Author

Keith Brooks

Submitted on

April 7, 2022 at 4:46 AM

Rating

Downloads

Notes

This script was started by me, messed up by me, and fixed by the great Bruce Lill.

My customer has internet registration and we wanted to automate much of the process.
Once someone is registered, then they need some groups created based on their Company name (Field name is CompanyName).

In the code substitute the Domino Server name where you see SERVER/ORG and the adminp will create the group within a minute or so once the user name is selected.

Instructions:
NOTE: Presumes you already have your Directory/NAB (Names.nsf) open
1) From the Notes top menu, click on Create, then click on Agent. In the window that opens, give the agent a name and description
2) Type is Lotusscript and click ok
3) Copy then paste in the code
4) Edit the SERVER/ORG to your server name that this will run on
5) This customer wanted an X in front of the company name but you could remove it or change it as you need for your purpose
6) Save your agent
7) Test the agent by going back to your Directory and going to a test person in the list of users
8) Click on Action from the Notes menu and find your new Agent and click on it to run it
9) Open the Groups list and see if it is there, after a minute or 2

%REM
    Agent AdminP
    Created Apr 4, 2022
    Description: set to adminp to update group
%END REM
Option Public
Option Declare ' always use Option Declare 
Sub Initialize 
    Dim session As New NotesSession 
    Dim adminp As NotesAdministrationProcess 
    Dim db As NotesDatabase 
    Dim coll As NotesDocumentCollection 
    Dim docRequest As NotesDocument 
    Dim strID, CompanyName As String 
    Dim FullName(0) As String 
    Set db = session.CurrentDatabase 
    Set coll = db.UnprocessedDocuments 
    Set docRequest = coll.GetFirstDocument( ) 
    
    Do Until docRequest Is Nothing 
        
        FullName(0) = docRequest.FullName(0)
        
        CompanyName = "x" & docRequest.CompanyName(0)  ' group name as x + companyname
        
        Set adminp = session.CreateAdministrationProcess("SERVER/ORG") 
        strID = adminp.AddGroupMembers(CompanyName,  FullName)
        If strID = "" Then
            MsgBox {Unable to create adminp request "Add or Modify Group"}, 0, {adminp failure}
        End If 
        session.UpdateProcessedDoc docRequest 
        Set docRequest = coll.GetNextDocument(docRequest)
    Loop 
    
End Sub

All code submitted to OpenNTF XSnippets, whether submitted as a "Snippet" or in the body of a Comment, is provided under the Apache License Version 2.0. See Terms of Use for full details.

No comments yetLogin first to comment...