DominoArea.org [Archive]

Bonjour,Désolé de venir avec une question de base, mais je suis un Administrateur sans aucune formation Lotus Script.J'ai le code repris ci-après, après avoir ajouter les lignes "If (locationdoc.Domain = "XX") Then" et "End If, je reçois le message "Type mismatch".Merci pour une réponse rapide car je dois mettre les changements de serveur de messagerie cette semaine encore.Sub Click(Source As Button) Dim session As New NotesSession Dim addressbook As NotesDatabase Dim locationview As NotesView 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.GetFirstDocument If (locationdoc Is Nothing) Then Msgbox "Unable to find the Location Document", 16, "Location Update" Else End If Do While Not (locationdoc Is Nothing) If (locationdoc.Domain = "XX") Then Call locationdoc.ReplaceItemValue("MailServer", "ZZZ/YYYYY") Call locationdoc.Save( True, True ) End If Set locationdoc = locationview.GetNextDocument(locationdoc) Loop End Sub

Bonjour,la bonne syntaxe est locationdoc.Domain(0) = "XX" si le contenu du champ domain est de type textesinon utilises cstr(locationdoc.Domain(0)) = "XX

Bonjour,Grand merci à philippeG.Bonne journée.