在一LOTUS数据库中,如何用LS建一个Agent,获取一固定LOTUS邮箱中邮件的Subject值?

请教高手:在一LOTUS数据库中,如何用LS建一个Agent获取一固定LOTUS邮箱中邮件的Subject值? Lotus --------------------编程问答-------------------- 和平常的库取数一样
代码如下：

dim session as notessession
dim db as notesdatabase
dim view as notesview
dim doc as notesdocument

set session = new notessession
set db = session.getdatabase("","mail/zhangsan.nsf")
set view = db.getview("收件箱视图") '收件箱视图得去邮件库查一下
set doc = view.getfirstdocument
while not doc is nothing
msgbox doc.subject(0)
set doc = view.getnextdocument(doc)
wend

补充：企业软件 ,  Lotus