La liste des accréditations s'initialise dans le tableau ReadAccess. Libre à chacun de l'augmenté. Par défaut j'y ai déclaré le groupe les mes serveurs (LocalDomainServers) pour les tâches d'administrations éventuelles
L'agent s'applique aux document sélectionnés de type Group.
- Code : Tout sélectionner
Sub Initialize
'
' Pour parer à la réception de mails "Internet" vers les groupes non publics.
'1/ Mise en place des accés lecteur sur les docs
'2/ Replissage du champs Mail Domain
'
Dim session As New NotesSession
Dim Currentdb As NotesDatabase
Dim Col As NotesDocumentCollection
Dim Doc As NotesDocument
Dim item As NotesItem
Dim ReadAccess(1) As String
Set CurrentDb = session.CurrentDatabase
ReadAccess(0)="#ALTEN_GROUPE"
ReadAccess(1)="LocalDomainServers"
GrpMailDomain="MESSAGERIEGROUPE"
Set Col = Currentdb.UnprocessedDocuments
If col.count>0 Then
Set Doc = Col.GetFirstDocument
While Not Doc Is Nothing
If Ucase(doc.type(0))="GROUP" Then
If Not(doc.HasItem("$Readers")) Then
Print "Replacing $Reader and MailDomain value for "+doc.listname(0)
Set Status = doc.ReplaceItemValue( "$Readers",ReadAccess)
Set Status=doc.ReplaceItemValue("MailDomain",GrpMailDomain)
Call doc.Save( True, True )
End If
End If
Set Doc = Col.GetNextDocument(Doc)
Call Col.UpdateAll
Wend
End If
End Sub
Have fun !
