LOTUSSCRIPT /COM/OLE のクラス
例:PutInFolder メソッド
1 次のスクリプトは、フォルダ [Jambalaya] に文書を配置します。
Dim doc As NotesDocument
'...set value of doc...
Call doc.PutInFolder( "Jambalaya" )
2 次のスクリプトは、フォルダ [Spicy] に文書を配置します。フォルダ [Spicy] はフォルダ [Recipes] の中にあります。
Dim doc As NotesDocument
'...set value of doc...
Call doc.PutInFolder( "Recipes\Spicy" )
3 次のスクリプトは、個人フォルダ [Greens] に文書を配置します。
Dim doc As NotesDocument
'...set value of doc...
Call doc.PutInFolder( "Greens" )
4 次のスクリプトは現在のデータベースで全文検索を実行して、一致する文書の上位 20 個をフォルダ [Spicy] に配置します。フォルダがない場合は作成されます。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set dc = db.FTSearch("cayenne",20)
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)
Call doc.PutInFolder("Spicy",True)
Set doc = dc.GetNextDocument(doc)
Wend
5 次のスクリプトは、文書コレクション内の文書で [Conflict] フィールドを含む全文書を選択し、フォルダに移動します。
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)
If doc.IsResponse Then
If doc.HasItem("$Conflict") Then
Call doc.PutInFolder("Conflicts")
End If
End If
Set doc = dc.GetNextDocument(doc)
Wend
関連項目
PutInFolder メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集