Lotus Domino Designer 8 ヘルプ - 例:Resolve メソッド

LOTUSSCRIPT /COM/OLE のクラス

例:Resolve メソッド
1 次の Visual Basic のサブルーチンは、URL を構成するさまざまな方法を示すデータベース URL を解析します。

Private Sub Command1_Click()
Dim s As New NotesSession
Dim db As NotesDatabase
Dim target As NotesDatabase
Dim theURL As String
s.Initialize
Set db = s.GetDatabase("", "Document examples 2.nsf")

Rem Construct URL using NotesURL
theURL = db.NotesURL
MsgBox theURL, , "NotesURL"
Set target = s.Resolve(theURL)
MsgBox target.Title, , "Target title"

Rem Construct URL using FileName
theURL = "notes:///" + db.FileName + "?OpenDatabase"
MsgBox theURL, , "FileName"
Set target = s.Resolve(theURL)
MsgBox target.Title, , "Target title"

Rem Construct URL using ReplicaID
theURL = "notes:///" + db.ReplicaID + "?OpenDatabase"
MsgBox theURL, , "ReplicaID"
Set target = s.Resolve(theURL)
MsgBox target.Title, , "Target title"

Rem Construct URL using constant database name
theURL = "notes:///Document examples 2?OpenDatabase"
Rem Also OK:"notes:///Document examples 2.nsf?OpenDatabase"
Rem Also OK:"notes:///Document+examples+2?OpenDatabase"
Rem Also OK:"notes:///Document+examples+2.nsf?OpenDatabase"
MsgBox theURL, , "Constant database name"
Set target = s.Resolve(theURL)
MsgBox target.Title, , "Target title"

Rem Construct URL using constant replica ID
theURL = "notes:///8525690D006AC34D?OpenDatabase"
Rem Also OK:"notes:///__8525690D006AC34D.nsf?OpenDatabase"
MsgBox theURL, , "Constant replica ID"
Set target = s.Resolve(theURL)
MsgBox target.Title, , "Target title"

End Sub

2 次の Visual Basic のサブルーチンは、ビューの URL を解析します。

Private Sub Command2_Click()
Dim s As New NotesSession
Dim db As NotesDatabase
Dim target As NotesView
Dim theURL As String
s.Initialize
Set db = s.GetDatabase("", "Document examples 2.nsf")
theURL = "notes:///Document examples 2/Main View?OpenView"
MsgBox theURL, , "Constant database and view names"
Set target = s.Resolve(theURL)
MsgBox target.Name, , "Target name"
End Sub

3 次の LotusScript のエージェントは、ビューの URL を解析します。

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim target As NotesView
Dim theURL As String
Set db = session.GetDatabase("", "Document examples 2.nsf")
theURL = "notes:///Document examples 2/Main View?OpenView"
Messagebox theURL, , "Constant database and view names"
Set target = session.Resolve(theURL)
Messagebox target.Name, , "Target name"
End Sub

関連項目

Resolve メソッド

NotesURL プロパティ

用語集

フィードバック ヘルプ または プロダクトユーザビリティ?

ヘルプの使い方

すべてのヘルプ項目

用語集