以下是一个操作的代码:
Sub Click(Source As Button)
Dim Session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim aimdoc As NotesDocument
Dim item As NotesItem
Set db=Session.CurrentDatabase
Set view=db.GetView("修改痕迹_正文")
Set aimdoc=view.GetNthDocument(1)
Set item=aimdoc.GetFirstItem("DocID")