Bonjour,Quand les utilisateurs se connect a l'intranet et si il se connect bien sur ce serveur alors il n'est pas necessaire d'avoir l'ip, le nom du serveur devrait suffire.Pour avoir le nom

im s As NotesSessionDim Db As NotesDatabaseDim sNomServeur As StringSet s = New NotesSessionSet Db = s.CurrentDatabasesNomServeur = Db.ServerPour ouvrir une base mail

im DbMail As New NotesDatabase(sNoimServeur, "mail/MaBoiteMail.nsf")etc...[%sig%]