Почему-то не получается таким способом...
Может, Lotus какой-то не такой у меня, версия 8.5...

Пишу на VBA следующую процедуру:

Set Session = CreateObject("Lotus.NotesSession")
Call Session.Initialize("пароль")
Set Maildb = Session.GETDATABASE("", "C:\Program Files\lotus\notes\data\bookmark.nsf")
If Not Maildb.IsOpen = True Then
Call Maildb.Open
End If
Set MailDoc = Maildb.CREATEDOCUMENT
Call MailDoc.ReplaceItemValue("Form", "Memo")
Call MailDoc.ReplaceItemValue("SendTo", "адрес")
Call MailDoc.ReplaceItemValue("CopyTo", "адрес")
Call MailDoc.ReplaceItemValue("BlindCopyTo", "адрес")
Set Body = MailDoc.CREATERICHTEXTITEM("Body")
Call Body.APPENDTEXT("текст письма")
Call Body.ADDNEWLINE(2)
Call Body.EMBEDOBJECT(1454, "", "файл вложения")
MailDoc.SAVEMESSAGEONSEND = True
Call MailDoc.ReplaceItemValue("PostedDate", Now())
Call MailDoc.SEND(True)
Set MailDoc = Nothing
Set Body = Nothing
Set Maildb = Nothing
Set Session = Nothing

Письмо отправляется, но почему-то текст письма отсутствует. Созданный объект "Body" почему-то передает только вложенный файл, а текст письма - не передает.
Более того, среди отправленных писем в их объектной модели я не смог найти поля, отвечающего за текст письма. Поля "Body" там не было, были только
Title Site URLIcon URL Form Collaborators SourceForm $UpdatedBy, и ни в одном из них текста не содержалось.
Версия Lotus Notes стоит 8.5. Может быть, в ней поменялось что-то в структуре писем? Кто-нибудь знает, в чем здесь дело?