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

関連項目

SwitchToID メソッド

用語集