LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim reg As New NotesRegistration reg.RegistrationServer = "AceOne" reg.StoreIDInAddressBook = True Call reg.AddUserToAddressBook( _ "c:\NotesAdministrator\jyip.id", _ ' ID file "Jimmy Yip/AceHardwareCertifier", _ ' full name "Yip", _ ' last name "AceHardware", _ ' user password "Jimmy", _ ' first name "", _ ' middle initial "CN=Mail_AceOne/O=AceHardware", _ ' mail server "jyip.nsf", _ ' mail file "", _ ' forwarding address "", _ ' location field "") ' comment field End Sub
See Also