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() // 取得第一份文件