不要用variant$,在note碰到长文本处理要在代理这样处理:
dim s as new notesSession
dim doccont as notesDocument
dim docunid$
dim db as notesDatabase
dim obj as notesDocument
dim item as notesItem
variant tmp
set db=s.currentdatabase
set doccont=s.documentcontext
docunid$=docont.objdocunid(0)
set objdoc=db.getdocumentbyunid(docunid$)
set item=objdoc.getfirstitem("rtfitem")
if item.isrichtextitem then
tmp=item.text
.....rem handling code