У меня есть электронное письмо с 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, который фактически ничего не делает.Если цикл закомментирован, встроенные изображения все еще остаются в электронном письме.
![original email with inline image](https://i.stack.imgur.com/gH1W5.jpg)
![email after forall loop](https://i.stack.imgur.com/wwwHc.jpg)
Надеюсь, у кого-нибудь из вас есть идеяили посоветуйте, как решить эту проблему.
Ура, Мартин