文書を削除する（NotesDocument クラス/Remove メソッド）

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim view As NotesView
	Dim key As String
	Set db = session.Currentdatabase
	Set view = db.GetView("vwAll")
	key = "C01"
	Set doc = view.GetDocumentByKey(key, True)
	If Not(doc Is Nothing) Then
		Call doc.Remove(True)
	Else
		Print "一致する文書が見つかりませんでした。"
	End If	
End Sub

Select XSnippet to copy to Clipboard