Этот код на Visual Basic



Пример 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/.


Содержание раздела