Visual Basic 6. Руководство разработчика



         

Исходный текст приложения - часть 4


Wend

End If

Остальная часть программы проста. Если выполнить щелчок на объекте, нахо­дящемся в окне элемента управления ListBox, программа повторно вызывает из семейства SelectedMessages выбранный объект и отображает его основные поля в окне соответствующего элемента управления Label в нижней части экрана и, собственно, текст сообщения - в окне элемента управления TextBox (при этом его свойству Locked должно быть присвоено значение True, чтобы предотвратить редактирование сообщения). Ниже приведен текст программы обработчика собы­тия Click элемента управления ListBox.

Программа 14.23. Просмотр объекта

Message

Private Sub List1_Click()

Dim thismessage As Object

Dim MessageAttachments As Attachments

selectedEntry = Listl.Listlndex + 1

If selectedEntry < 1 Then Exit Sub

Set thismessage = SelectedMessages.Item(selectedEntry)

lblSender.Caption = " " & thismessage.SenderName

lblSent.Caption = " " & thismessage.SentOn

lblRecvd.Caption = " " & thismessage.ReceivedTime

txtBody.Text = " " & thismessage.Body

Set MessageAttachments = thismessage.Attachments

If MessageAttachments.Count = 0 Then

Command4.Enabled = False

Else

Command4.Enabled = True

End If

End Sub

Откройте проект Messages в Visual Basic, чтобы исследовать текст программы и ознакомиться с тем, как программа объединяет объекты папки Contacts и исполь­зует их для получения информации о E-mail-объектах из папки InBox. Теперь можно изменять программу с целью добавления большего количества критериев выбора или обеспечения возможности работы с различными папками (например, папкой OutBox или подпапками в папке InBox).

Предупреждение

В проекте Messages для отображения имен возможных отправителей почтового сооб­щения используется свойство контактов FullName. Если имена, использованные в папке Contacts, не соответствуют именам отправителей во входящих сообщениях, то программа не будет выбирать все сообщения, которые ожидались. Имеется много методов установления соответствия контактов и сообщений, но они требуют дополнительных затрат. Например, можно использовать адрес электронной почты каждого контакта, поскольку это общий признак, имеющийся у документа, находящегося как в папке Contacts, так и папке InBox. Но контакт может иметь несколько адресов электронной почты, поэтому следует удостовериться, что поиск выполняется по всем адресам электронной почты выбранного контакта.




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