Архитектура Microsoft Windows для разработчиков






Пример 1



Пример 1

Этот код на Visual Basic открывает сообщение электронной почты средствами элементов управления MAPISession и MAPIMessages:

Private Sub GetlastMessage_Click()

Dim strHeader As String

'Регистрация, открытие почтового сеанса и загрузка почты.

MAPISession1.Action = mapSignOn

MAPIMessagesI.SessionID = MAPISessionI.SessionID

MAPIMessages1.Fetch

'Последнее сообщение в почтовом ящике Inbox.

MAPIMessagesI.Msglndex = MAPIMessagesI.MsgCount - 1

strHeader = "От кого: " & MAPIMessagesI .MsgOrigDisplayName

strHeader = strHeader & " Тема: " &

MAPIMessagesI.MsgSubject

'Вывод текста сообщения в окно сообщений и

'завершение сеанса.

MsgBox MAPIMessagesI.MsgNoteText, , strHeader

MAPISessionI.Action = mapSignOff

End Sub

Примечание Более подробную информацию о MAPI Вы найдете на Web-узле Microsoft по адресу www.microsoft.com/win32dev/mapi/.









Содержание  Назад  Вперед