從視界取得

Dim ss as New NotesSession

Dim db as NotesDatabase

Dim view as NotesView

Dim doc as Notes Document

Set db = ss.Currentdatabase

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

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