lotus - LotusScript 获取附件的位置并替换它

Question

我有一个带有表格的 Notes 应用程序。在表单上，​​我有一个富文本字段。我必须删除所有附件并用 rt 字段中的图片替换它们。

到目前为止，我有一个“演示”应用程序，它删除附件并用图片替换它们（我正在使用 NotesRichTextNavigator），但我无法保存/恢复它们的位置。

有什么办法吗？

它正在工作，但是这样我无法在 rt 字段中设置 NotesEmbeddedObject 位置：

Set rtItem=doc.GetFirstItem(rtField)
Call rtitem.EmbedObject ( EMBED_ATTACHMENT, "", filePath)
Call doc.Save( True, False )

谢谢 ！

Answer 1

如果您确实必须保持附件的位置，请查看NotesDXLExporter和NotesDXLImporter。将文档导出为 DXL，将附件替换为 DXL 中的图片，然后将其导入回文档。确保您使用notesDXLExporter.RichTextOption=RICHTEXTOPTION_DXL