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。