DominoArea.org [Archive]

bonjour,

je vais changer de domaine internet et donc je dois modifier toutes les adresses email de mes utilisateurs.

2 questions:

1- je cherche un retour d'expérience sur ce sujet ( je vourdrais faire coexister les deux domaines ancien et nouveau pendant plusieurs mois )

2 - j'ai pas mal de clients qui ont sur leur client notes ( 5.11) des sites de connexion où sont précisées leur adresse mail ) peut on supprimer dynamiquement ces adresses et si oui comment ?

Je vous remercie de vos réponses

EN LS mettre l'ancienne adresse dans le champ Nom COMPLET (tout en bas pas en début) puis avec Administrator renseigner l'adresse Internet.

On peut se passer de l'étape LS si le document de configuration est permissif pour les adresses Mail: par défaut Lotus trouve toto/tru/muche
dans
toto@truc.com
toto@truc.net

Mais un bon admin évite toujours que toto puisse recevoir des mails aussi bien pour .com et .net surtout dans le cas de boites "concurrrentes"

voici l'agent que nous utilisons : il s'applique sur les documents sélectionnés dans une vue.

Code : Tout sélectionner

Sub Initialize
   '
   ' Agent to Modify Internet address domain and save previous value into Fullname field
   ' Working on selected documents
   '
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim Currentdb As NotesDatabase
   Dim Col As NotesDocumentCollection
   Dim Doc As NotesDocument
   Dim NewDomain As String
   Dim item As NotesItem
   
   Set CurrentDb = session.CurrentDatabase
   NewDomain=Inputbox$("p-mod.de (without @)","Change Mail Domain name")
   If NewDomain<>"" Then
      Set Col = Currentdb.UnprocessedDocuments
      Set Doc = Col.GetFirstDocument
      While Not Doc Is Nothing
         If Doc.InternetAddress(0)<>"" Then
            Set item = doc.GetFirstItem( "FullName" )
            Call item.AppendToTextList( Doc.InternetAddress(0))
            SubChaine=Split(Doc.InternetAddress(0),"@")
            SubChaine(1)=NewDomain
            NewAddress=Lcase(SubChaine(0)+"@"+SubChaine(1))
            Print "Modifing "+ Doc.InternetAddress(0) +" by "+NewAddress
            Set item = Doc.ReplaceItemValue("InternetAddress",NewAddress)
            Call Doc.save(True,False)
            Set Doc = Col.GetNextDocument(Doc)
            Call Col.UpdateAll
            Call workspace.ViewRefresh
         End If
      Wend
   End If
End Sub


en paralléle il faut pas oublier de rajouter le nouveau domaine dans la liste des alias de ton document Domaine Global.

par contre pour la mise à jour des postes clients v5...??? sur les versions récentes, ça se fait automatiquement

Merci pour ces infos

Eric

je déterre ce post pour dire merci (car très pratique) ...et pour faire profiter les autres membres de Domino Area de mes modifs...

c'est presque exactement le script que je cherchais. Je l'ai juste modifié quelque peu pour ne modifier que lorsque le nom de domaine match avec celui qu'on veut changer (nous avons 6 ou 7 nom de domaine différent et je ne voulais pas sélectionner les personnes à la main)

Code : Tout sélectionner

Sub Initialize
   '
   ' Agent to Modify Internet address domain and save previous value into Fullname field
   ' Working on selected documents
   '
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim Currentdb As NotesDatabase
   Dim Col As NotesDocumentCollection
   Dim Doc As NotesDocument
   Dim NewDomain As String
   Dim item As NotesItem
   
   Set CurrentDb = session.CurrentDatabase
   
'on peut mettre une inputbox pour demander le nom de domaine
   'NewDomain=Inputbox$("nomdedomaine.com (without @)","Nouveau nom de domaine")
   NewDomain = "nouveau_domaine.com"
   
   
   
   
   
   If NewDomain<>"" Then
      Set Col = Currentdb.UnprocessedDocuments
      Set Doc = Col.GetFirstDocument
      While Not Doc Is Nothing
         If Doc.InternetAddress(0)<>"" Then
            Set item = doc.GetFirstItem( "FullName" )
            Call item.AppendToTextList( Doc.InternetAddress(0))
            SubChaine=Split(Doc.InternetAddress(0),"@")
            
   'verif si nom de domaine match avec celui défini sinon le script va au suivant
            If SubChaine(1) <> "ancien_domaine.com" Then
               SubChaine(1)=SubChaine(1)
            Else
               SubChaine(1)=NewDomain
               NewAddress=Lcase(SubChaine(0)+"@"+SubChaine(1))
               Print "modification "+ Doc.InternetAddress(0) +" par "+NewAddress
               Set item = Doc.ReplaceItemValue("InternetAddress",NewAddress)
               Call Doc.save(True,False)
               
            End If
            
            Set Doc = Col.GetNextDocument(Doc)
            Call Col.UpdateAll
            Call workspace.ViewRefresh
         End If
      Wend
   End If
End Sub

j'ai pas relu l'historique, mais de mémoire, il y un outil dans le client d'admin pour changer les adresses internet des docs personne sélectionnés
mais en effet, ça ne concerve pas l'ancienne adresse en alias dans FullName et faut selectionner à la main
mais comme tu dis, si ça peut aider d'autres ...