Огнитесь Outlook 2003 Macro, когда пользователь создает новое пустое сообщение
-
01-10-2019 - |
Вопрос
Я нашел события, которые стреляют, когда пользователь получает сообщение или ударяет кнопку отправки, но ничего не возникает, когда пользователь создает пустой, новый адрес электронной почты.
Решение
Вы должны быть в состоянии использовать событие NewinsPector. Пример:
Public WithEvents myOlInspectors As Outlook.Inspectors
Private Sub Application_Startup()
Initialize_handler
End Sub
Public Sub Initialize_handler()
Set myOlInspectors = Application.Inspectors
End Sub
Private Sub myOlInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
Dim msg As Outlook.MailItem
If Inspector.CurrentItem.Class = olMail Then
Set msg = Inspector.CurrentItem
If msg.Size = 0 Then
MsgBox "New message"
End If
End If
End Sub
Не связан с StackOverflow