带有附件的条目的显示问题？

czy66ds

本来,用一个表单显示一个文档时,对于文档上的一个条目而言,如果表单上没有同名域,这该条目就显示不出来.我用script脚本新建了一个条目，内嵌了一个附件，不管显示它的表单有没有同名域，他却非显示出来不可，这是为什麽？在这种情况下，如何隐藏这个附件？

vicky_1

你可以在表单创建这样一个RTF域，编辑域的隐藏条件啊！

czy66ds

我今天刚注册,刚问了一个问题就得到了回答,谢谢板主.
但是,不是手工操作的话,如何把硬盘上的一个文件附加到这个域中呢?

vicky_1

噢！使用Lsp。

RTF域的EmbedObject成员函数。

vicky_1

具体可以参看帮助文件。

vicky_1

不知道你的问题解决了没有？

czy66ds

还没有解决。
首先,要想用脚本嵌入附件，只有用 .Embedobject一条路。而这个成员函数是包容在条目中的，在打开表单上的RTF域没有变成条目之前，是没有办法用的。就是说，没有把附件嵌入RTF域的方法。
其次，要把RTF域变成条目，必须有一个把当前uidoc保存再打开。但是，由于我在表单postopen事件中写有代码，notes会报错的：“试图执行嵌套的表单事件”;“notesuidocument:save cancelled"就是说执行不下去。
想用放到RTF域中,并隐藏域的办法有困难。而嵌有附件的条目又非显示出来不可。
因此，出来一个”带有附件的条目的显示问题“的问题！

vicky_1

你的意思是说，这个文档在创建的时候就附带硬盘中的某个文件吗？

czy66ds

是

vicky_1

这样的话创建文档要使用LSP了，使用Compose参数的命令可能解决不了。
创建文档的时候，同时创建RTF域，并关联RTF项，使用Embedobject方法。

czy66ds

谢谢板主的关注。但是如何“创建文档的时候，同时创建RTF域，并关联RTF项”呢？

vicky_1

Set doc = New notesdocument(db)
Set rtitem = New NotesRichTextItem(doc, "Body")
Set Object = rtitem.EmbedObject(EMBED_ATTACHMENT,"","C:\***.TXT")

这个我没有试过，你看一下，如果可以回个话。

vicky_1

对了，具体的定义是：

Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim Object As NoteEmbeddedObject

czy66ds

这样做,创建的"body"是个条目，象这种带有附件的条目，在文档必显示出来无疑。
即使表单上原有一个RTF域（在notes下隐藏的）也无济于事。关键是如何隐藏这个条目。
谢谢