Sub Initialize Dim session As New NotesSession Dim reg As New NotesRegistration reg.RegistrationServer = "AceOne" Call reg.SwitchToID("user.id", _ ' ID file "AceHardware") ' ID password End Sub
See Also