LOTUSSCRIPT /COM/OLE のクラス
例:Remove メソッド
1. 次のスクリプトは、データベースの文書を他のユーザーが変更していない場合に削除します。
Dim doc As NotesDocument
'...set value of doc...
If doc.Remove( False ) Then
Messagebox _
( "The document was deleted from the database.")
Else
Messagebox _
( "Doc not deleted.Another user modified it.")
End If
2. 次のスクリプトは、他のユーザーが文書を変更した場合でもデータベースの文書を削除します。スクリプトは Remove メソッドの戻り値を使用しません。
Dim doc As NotesDocument
'...set value of doc...
Call doc.Remove( True )
3. 次のスクリプトは現在の文書のユニバーサル ID を取得し、文書に削除マークを付け、それを閉じます。さらにデータベースからバックエンドの NotesDocument オブジェクトを検索し、NotesDocument クラスの Remove メソッドでそれを削除します。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim docA As NotesDocument
Dim s As String
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set docA = uidoc.document
s = docA.UniversalID
Call uidoc.deletedocument()
Set docB = db.getDocumentByUNID(s)
Call docB.Remove(True)
Call workspace.viewrefresh()
4. 次のスクリプトは「My Favorites」というビューのすべての文書を削除します。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim collection As NotesViewEntryCollection
Dim entry As NotesViewEntry
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("My Favorites")
Set collection = view.AllEntries
Set entry = collection.GetFirstEntry()
While Not(entry Is Nothing)
Set doc = entry.Document
doc.Remove(True)
Set entry = collection.GetNextEntry(entry)
Wend
関連項目
Remove メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集