VPF::Работа с почтой MS Outlook - Форум программистов

mihanik

Дата 22.9.2006, 11:01 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Привет!!!

У меня такая трабла... smile

Пишу программу, которая проверяет наличие в базе данных MS Outlook непрочитанных писем.
(Сейчас у меня там одно письмо и я его делаю то "прочитанным" то "НЕпрочитанным")
Прикол в том, что если письмо имеет признак "прочитано", то оно определяется моей программой, как "новое".
А если отмечаю его как "НЕпрочитанное", то моя прога говорит, что "Не найдено новых писем..."

Помогите, кто может...

Код


Private Sub Command1_Click()

    Dim myolApp As Outlook.Application               ' Переменная для экземпляра Outlook
    Dim myNamespace As Outlook.NameSpace    ' Переменная для NameSpace
    Dim AllMessages As Items                              ' Переменная для ВСЕХ писем
    Dim Message As Object                                  ' Переменная для конкретного письма
    
    ' Устанавливаем переменные на нужные нам объекты
    Set myolApp = CreateObject("Outlook.Application")
    Set myNamespace = myolApp.GetNamespace("MAPI")        
    Set AllMessages = myNamespace.GetDefaultFolder(olFolderInbox).Items

    ' Ищу первое непрочитанное письмо...
    Set Message = AllMessages.Find("[UnRead]= 'False'")
    
    If Message Is Nothing Then
        MsgBox "Не найдено новых писем..."
    Else
        MsgBox CStr(Message.SenderName) ' Вывожу сообщение "От кого пришло письмо"
    End If

    ' Закрываем Outlook
    myolApp.Quit
    ' "убиваем" переменную для Outlook
    Set myolApp = Nothing
    
End Sub

Добавлено @ 11:02
Со строкой

Код


Set Message = AllMessages.Find("[UnRead]= 'True'")

такая же фигня... smile

--------------------

Программистами не рождаются, - это родовая травма...

mihanik

Дата 22.9.2006, 12:03 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

РЕШИЛ!!!

А всё потому, что я Чудак!!! smile

Правильно писАть надо!!!

Код


Set Message = AllMessages.Find("[UnRead]= True ")

Т.е. True в апострофы заключать НЕ НАДО...

--------------------

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »