ForAll 循环破坏 Lotus Notes 中电子邮件的内联图像

Question

我确实有一封包含内嵌图像的 Lotus Notes 电子邮件。当我运行以下仅更改电子邮件主题的代码行时，内联图像会丢失。

Sub Initialize

Dim ns As New NotesSession
Dim nc As NotesDocumentCollection
Dim nd As NotesDocument

Set nc = ns.Currentdatabase.Unprocesseddocuments()  
Set nd = nc.GetFirstDocument()

    ForAll Items In nd.Items

    End ForAll

Call nd.Replaceitemvalue("Subject", "Forall")
Call nd.Save(True, False)

End Sub

问题是由实际上没有做任何事情的 ForAll 循环引起的。如果循环被注释掉，内联图像仍保留在电子邮件中。

我希望你们中的任何人有一个想法或建议如何解决这个问题。

干杯， 马丁

Answer 1

当访问项目时，您的消息正文可能正在从 Notes 富文本转换为 MIME，然后重新保存，从而失去保真度。

尝试在代码开头设置ns.ConvertMIME = false。