LOTUSSCRIPT /COM/OLE のクラス

例:AddServerToAddressBook メソッド
次のエージェントは、AceOne 上の Domino ディレクトリに SERVER2.ID の文書を追加します。

Sub Initialize
Dim session As New NotesSession
Dim reg As New NotesRegistration
reg.RegistrationServer = "AceOne"
reg.StoreIDInAddressBook = True
Call reg.AddServerToAddressBook( _
"c:\NotesAdministrator\server2.id", _ ' ID file
"AceTwo/AceHardwareNE/AceHardwareCertifier", _ ' full name
"AceHardware", _ ' server domain
"AceHardware", _ ' server password
"", _ ' network
"Roberta Person/AceHardwareCertifier", _ ' administrator
"Ace Two", _ ' title field
"", _ ' location field
"") ' comment field
End Sub

関連項目