從文件集合取得

Dim ss As New NotesSession

Dim db As NotesDatabase

Dim view As NotesView

Dim col As NotesDocumentCollection

Dim doc As NotesDocument

Set db = ss.CurrentDatabase

Set view = db.GetView(" 視界名稱 ")

Set col = view GetAllDocumentbyKey(" key ")

Set doc = col.GetFirstDocument() //取得第一份文件