VPF::Максимум автоматизации в MD Outlook

Guest

Дата 31.8.2005, 20:58 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата

Если офис лицензионный

Нет, к сожалению...

LSD

Дата 4.9.2005, 09:57 (ссылка)

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

Загрузка ...

Leprechaun Software Developer

Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 14
Всего: 538

Вот такой скрипт потметит все сообщения в папке 'Inbox' как прочитанные:

Код

Public blnSearchComp As Boolean

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
    blnSearchComp = True
End Sub

Sub MarRead()
    Dim sch As Outlook.Search
    Dim rsts As Outlook.Results
    Dim i As Integer
    Dim mi As MailItem

    blnSearchComp = False
    
    Const strF As String = ""
    Const Folder As String = "Inbox"    
    Set sch = Application.AdvancedSearch(Folder, strF)   
    While blnSearchComp = False
        DoEvents
    Wend
    
    Set rsts = sch.Results
    
    For i = 1 To rsts.Count
      Set mi = rsts.Item(i)
      If mi.UnRead = True Then
        mi.UnRead = False
      End If
    Next   
End Sub

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

Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.

Дата 5.9.2005, 05:30 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Спасибо, попробую.

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