Inserir o usuario no Grupo do Names

Sub InserirGrupo(docG As NotesDocument, Grupo As String)
' ===> Objetivo:
' ===> Inserir o usuario no Grupo do Names

' Parâmetros
' docG = Documento
' Grupo = Nome do Grupo que onde deseja inserir o usuario


Dim docGrupo As notesdocument
Dim vw As notesview
Dim item As NotesItem
Dim session As New NotesSession
Dim books As Variant

books = session.AddressBooks
Forall b In books
Call b.Open( "", "" )
' visao com todos os grupos na names
Set vw=b.getview("($VIMGroups)")

' pegando o grupo atraves da chave = nome do grupo (Exemplo: "Grupo00000076")
Set docGrupo = vw.getdocumentbykey(Grupo)

If Not docGrupo Is Nothing Then
Set item = docGrupo.getfirstitem("members")

' se nao existe o login do usuario no grupo, insere
If Not item.Contains(docG.login(0)) Then

' append do login do usuario
item.AppendToTextList(docG.login(0))

'' Call docGrupo.ComputeWithForm( True, False )

' salva
Call docGrupo.save(True,False)
End If

End If
End Forall

Exit Sub

End Sub