| Вопрос: Outlook Express | Добавлено: 23.04.03 21:08 |
Автор вопроса:  mwg
|
|
Привет всем! Подскажите плиз, как извлечь определённое письмо из outlook с помощью vb? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Klassev Вопросов: 0 Ответов: 2 |
Web-сайт: Профиль | | #1 | Добавлено: 24.04.03 01:25 |
|
Dim oApp As Outlook.Application Dim oNameSpace As NameSpace Dim oFolder As MAPIFolder Dim oMailItem As Outlook.MailItem Dim cFolder As MAPIFolder Dim myItems As Items Dim sText As String
Set oApp = New Outlook.Application Set oNameSpace = oApp.GetNamespace("MAPI") Set oFolder = oNameSpace.GetDefaultFolder(olFolderInbox) 'задаём папку Set cFolder = oFolder.Folders.Item("ИМЯ ПАПКИ") 'для каждого письма в этой папке For Each oMailItem In cFolder.Items 'задаём переменную, которая будет содержать тело письма sText = oMailItem.HTMLBody 'Если тема письма "Тема" If oMailItem = "Тема" Then 'работаем с телом письма End If Next oMailItem Set oMailItem = Nothing Set oFolder = Nothing Set oNameSpace = Nothing Set oApp = Nothing |
||
Страница: 1 |