Changer le serveur de messagerie par programmation

[Yellow Submarine]

Bonjour,Je suis Administrateur Lotus Notes et mes connaissances en développement sont rudimentaires.J'ai une série d'utilisateurs qui changent de serveur de messagerie et j'aimerai envoyer un bouton qui permet de changer ce serveur dans tous les sites.J'ai fait le site "Bureau", comment adapter ce petit programme pour qu'il fasse les autres sites (Domicile, Déplacement, Local, ...).Merci pour le coup de main.Sub Click(Source As Button) Const LocationDocumentName = "Bureau" Dim session As New NotesSession Dim locationview As NotesView Dim addressbook As NotesDatabase Dim locationdoc As NotesDocument Dim newaddress As String Set addressbook = session.GetDatabase("","names.nsf") If (addressbook Is Nothing) Then Msgbox "Unable to find your local Address Book", 16, "Location Update" End If Set locationview = addressbook.GetView("Locations") Set locationdoc = locationview.GetDocumentByKey(LocationDocumentName) If (locationdoc Is Nothing) Then Msgbox "Unable to find the Location Document", 16, "Location Update" Else Call locationdoc.ReplaceItemValue("MailServer", "ServMess/Internet Domain") Call locationdoc.Save( True, True ) End If End Sub

[philippe]

bonjourtu peux explorer tous les documents contenu dans la vue "Locations" comme cela tu pourras prendre en compte les doc créés par les utilisateursVoila un exemple de code à placer après la ligne set locationview etc...Set locationdoc = locationview.GetFirstDocumentIf (locationdoc Is Nothing) ThenMsgbox "Unable to find the Location Document", 16, "Location Update"ElseEnd Ifdo while not (locationdoc is nothing)Call locationdoc.ReplaceItemValue("MailServer", "ServMess/Internet Domain")Call locationdoc.Save( True, True )set locationdoc = locationview.GetNextDocument(locationdoc)Loop

[Yellow Submarine]

Bonjour,Merci pour le coup de main.