DominoArea.org [Archive]

hello, j'installe un nouveau serveur sur lequel je vais transférer les bases mail des utilisateurs. Problèmes :1. comment modifier le plus simplement possible le champ mailserver dans le carnet d'adresses public pour toutes ces personnes2. comment modifier le plus simplement possible le champ mailserver dans le carnet d'adresses privé pour chacun d'entre euxmerci d'avance

Bonjour,pour le carnet d'adresse privé le + simple est de de créer une vue avec comme critère de selection mailserver = "NomAncienServeur" puis de faire passer un agent qui modifie ce champ avec le nouveau nom de serveur sur tous les docs de cette vue.Pour les carnets d'adresse privés tu peux mettre le script ci dessous dans un bouton que tu envoies par mail a tes utilisateurs avec instructions de cliquer dessus normalement cela devrait le faire (attention quand même je n'ai pas fait de test)seul pbm si l'utilisateur ne clique pas....Sub Click(Source As Button) Dim db As New NotesDataBase("","names.nsf") Dim coll As NotesDocumentCollection Dim doc As NotesDocument Dim dateTime As New NotesDateTime("01/01/99") selection$ = "mailserver = ""NomAncienServeur""" Set coll = db.search(selection$,dateTime,0) Set doc = coll.getFirstDocument Do While Not (doc Is Nothing) doc.mailserver = "NouveauNomServeur" Call doc.save(True,True) Set doc = coll.GetNextDocument(doc) Loop End Sub