LOTUSSCRIPT /COM/OLE のクラス

例:CrossCertify メソッド
次のエージェントは、JYIP.ID と CERTNE.ID の相互認証を行います。

Sub Initialize
Dim session As New NotesSession
Dim reg As New NotesRegistration
dt = Datenumber(Year(Today)+1, Month(Today), Day(Today))
reg.RegistrationServer = "AceOne"
reg.CertifierIDFile = "c:\NotesAdministrator\certNE.id"
reg.Expiration = dt
Call reg.CrossCertify( _
"c:\NotesAdministrator\jyip.id", _ ' ID file
"AceHardware", _ ' certifier password
"") ' comment field
End Sub

関連項目