Событие Application.NewMail (Outlook)
Происходит при получении одного или нескольких новых сообщений электронной почты в папке "Входящие".
Синтаксис
выражение. NewMail
выражение: переменная, представляющая объект Application.
Примечания
Это событие недоступно в Microsoft Visual Basic Scripting Edition (VBScript).
Событие NewMail возникает при поступлении новых сообщений в папку "Входящие" и до обработки правил клиента. Если вы хотите обработать элементы, поступающие в папку "Входящие", рассмотрите возможность использования события ItemAdd для коллекции элементов в папке "Входящие". Событие ItemAdd передает ссылку на каждый элемент, добавленный в папку.
Событие NewMail не срабатывает, когда пользователь находится в автономном режиме.
Пример
В этом примере Microsoft Visual Basic для приложений (VBA) папка "Входящие" отображается при поступлении нового сообщения электронной почты. Пример кода должен быть помещен в модуль класса, а подпрограмма должна быть вызвана Initialize_handler , прежде чем процедура события может быть вызвана Microsoft Outlook.
Public WithEvents myOlApp As Outlook.Application
Sub Initialize_handler()
Set myOlApp = Outlook.Application
End Sub
Private Sub myOlApp_NewMail()
Dim myExplorers As Outlook.Explorers
Dim myFolder As Outlook.Folder
Dim x As Integer
Set myExplorers = myOlApp.Explorers
Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
If myExplorers.Count <> 0 Then
For x = 1 To myExplorers.Count
On Error GoTo skipif
If myExplorers.Item(x).CurrentFolder.Name = "Inbox" Then
myExplorers.Item(x).Display
myExplorers.Item(x).Activate
Exit Sub
End If
skipif:
Next x
End If
On Error GoTo 0
myFolder.Display
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.