Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: VBA, Outlook 2K - событие Добавлено: 25.05.04 19:08  

Автор вопроса:  wsol

Уважаемые господа, заранее извиняюсь за дилетанский вопрос.

Вопрос в следующем:

Надо отследить событие в MS Outlook 2K - открытие письма.

Как это сделать, если можно с примером кода.

Заранее спасибо!

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Gloom



Вопросов: 0
Ответов: 36
  Профиль | | #1 Добавлено: 27.05.04 11:32

Private WithEvents colInspectors As Inspectors

Private WithEvents objItem As MailItem

Private Sub Application_Startup()
    Set colInspectors = Application.Inspectors
End Sub


Private Sub colInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "MailItem" Then
        Set objItem = Inspector.CurrentItem
    End If
End Sub


Private Sub objItem_Open(Cancel As Boolean)
    'делаем то, что нам надо

End Sub

Ответить

Номер ответа: 2
Автор ответа:
 wsol



Вопросов: 5
Ответов: 3
  Профиль | | #2 Добавлено: 28.05.04 10:15
Спасибо!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам