ForAll Loop ломает встроенные изображения электронной почты в 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 в начале вашегокод.