如何获取Rich Text Field的大小？

Question

我可以使用@Attachmentlength（）或使用NotesEmbeddedObject类来获取附件的大小。

但我面临着一个特殊的问题。如果我复制并粘贴屏幕截图，或将图像复制并粘贴到NotesRichText字段中，则无法检索字段的大小。因为这些图像不是由嵌入对象提取的。 NotesItem.ValuesLength确实返回内部存储。我不知道它是什么？ ：d。但肯定不是那个领域的大小。可以从DXLExporter和NotesStream获取大小。但是，如果我附上pdf文件，则会抛出错误。

简单地说，我想获得富文本字段的大小。

Answer 1

如果将richtext项目复制到新创建的文档并检查整个文档的大小，该怎么办？我认为这是一个非常简单易用的解决方案（并且不会出现访问问题，因为我们不需要保存文档）。那么你不需要关心不同类型的数据到richtext字段。

...
Set rtitem = doc.Getfirstitem("body")
Dim newdoc As New NotesDocument(db)
Call rtitem.Copyitemtodocument(newdoc, "body")
print newdoc.Size