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

Question

我有一个带有表单的Notes应用程序。在表单上我有一个richtext字段。 我必须删除所有附件，并用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