Запускать макрос Outlook 2003, когда пользователь создает новое пустое сообщение

Я обнаружил события, которые срабатывают, когда пользователь получает сообщение или нажимает кнопку отправки, но ничего не срабатывает, когда пользователь создает пустое новое электронное письмо.


outlook vba outlook-2003
person Trindaz    schedule 09.09.2010    source источник

Ответы (1)


arrow_upward
5
arrow_downward

Вы должны иметь возможность использовать событие 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
person Geoff    schedule 09.09.2010
comment
Это сработало отлично после того, как я включил макросы. Параметр безопасности «высокий» в Outlook 2003 даже не дает возможности запускать неподписанные макросы, поэтому переключение на «средний» сделало свое дело. - person Trindaz; 13.09.2010