VB6 с MAPI для Lotus Notes

Question

Всем,

Мне нужно включить функциональность почты в приложение VB6.Почтовой системой по умолчанию является Lotus Notes 6.5.Я читал, что эта версия Lotus Notes поддерживает MAPI.

Вот странная вещь, которую я вижу.Когда пользователь нажимает кнопку SendMail, запускается приведенный ниже код:

 MAPISession1.SignOn
With MAPIMessages1
    .SessionID = MAPISession1.SessionID
    .Compose
    .RecipAddress = "John Smith"
    .MsgSubject = "Test memo"
    .MsgNoteText = "This is testing data!"
    .AddressResolveUI = True
    .ResolveName
    .Send True
End With

Этот код открывает окно в Lotus Notes (это то, что я ожидал), но - поле адреса Кому содержит адрес получателя, за которым следуетосновной текст в первой строке и адрес получателя во второй строке:

John SmithThis is testing data!
John Smith

- пустое тело раздела.

Могу ли я что-нибудь исправить, или LotusЗаметки несовместимы с MAPI.
Спасибо, Лев

Answer 1

Я провел небольшое исследование и предположительно в Lotus Notes 6 поддерживается Simple MAPI. Однако, немного больше копаний привело меня к этому посту , где у кого-то возникли проблемы с использованием MAPI в r6, и я решил: вместо этого используйте COM. Я работал только с COM, но могу сказать, что он дает вам большую гибкость, если вы готовы изменить свой код.

Answer 2

У меня нет доступа к соответствующим инструментам, поэтому я не могу проверить это, но попробуйте переместить строку .ResolveName сразу после установки адреса получателя, например:

.Compose
.RecipAddress = "John Smith"
.ResolveName

Lotus Notes совместим с Simple MAPI, а не с полным (расширенным) MAPI, но используемый вами код выглядит как Simple MAPI.