LOTUSSCRIPT /COM/OLE のクラス
例:Open メソッド
1. 次のスクリプトは現在のコンピュータ上で最初に見つかったデータベースを開きます。スクリプトがクライアントで実行されているときはローカルコンピュータが現在のコンピュータとなり、サーバーで実行されているときはサーバーが現在のコンピュータとなります。
Dim directory As New NotesDbDirectory( "" )
Dim db As NotesDatabase
Set db = directory.GetFirstDatabase( DATABASE )
Call db.Open( "", "" )
2. 次の LotusScript エージェントは、NotesSession の AddressBooks プロパティで各データベースを開きます。NotesDatabase 変数の「book」を AddressBooks 要素として使用するには Variant として扱う必要があります。
Sub Initialize
Dim s As New NotesSession
Forall book In s.AddressBooks
book.open "", ""
Messagebox book.Title,, "Address book"
End Forall
End Sub
3. 次の Visual Basic コードは、NotesSession の AddressBooks プロパティで各データベースを開きます。NotesDatabase 変数の「book」を AddressBooks 要素として使用するには Variant として扱う必要があります。
Private Sub Open_Click()
Dim s As New NotesSession
s.Initialize
For Each book In s.AddressBooks
book.Open
List1.AddItem (book.Title)
Next
End Sub
4. 次のスクリプトはサーバー HongKong の sales.nsf データベースを開きます。
Dim db As New NotesDatabase( "", "" )
Call db.Open( "HongKong", "sales.nsf" )
5. 次のスクリプトは特定のデータベースがあるかどうかを調べます。ユーザーは文書をあるデータベースからアーカイブデータベースにアーカイブするスクリプトを持っています。アーカイブデータベースがないとき、スクリプトがアーカイブデータベースを作成します。アーカイブデータベースがあるとき、スクリプトはアーカイブデータベースを開きます。
Dim archiveDb As New NotesDatabase( "", "" )
Dim originalDb As New NotesDatabase( "", "product.nsf" )
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
If ( Not ( archiveDb.Open( "", "archive\" & _
originalDb.FileName ) ) ) Then
Set archiveDb = originalDb.CreateCopy( "", "archive\" _
& originalDb.FileName )
Call archiveDb.GrantAccess( "Ivan Ash", ACL_MANAGER )
End If
関連項目
Open メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集