Evento Application.NewMail (Outlook)
Ocorre quando uma ou mais novas mensagens de email são recebidas na caixa de entrada.
Sintaxe
expression. NewMail
expressão Uma variável que representa um Aplicativo objeto.
Comentários
Esse evento não está disponível no Microsoft Visual Basic Scripting Edition (VBScript).
O evento NewMail é acionado quando novas mensagens chegam na caixa de entrada e antes de cliente ocorre o processamento da regra. Se desejar processar os itens que chegarem na caixa de entrada, considere a possibilidade de usar o evento ItemAdd na coleção de itens na caixa de entrada. O evento ItemAdd passa uma referência para cada item que é adicionado a uma pasta.
O evento NewMail não é acionado quando o usuário está no modo offline.
Exemplo
Este exemplo do Microsoft Visual Basic for Applications (VBA) exibe a pasta Caixa de Entrada quando uma nova mensagem de email chega. O código de exemplo deve ser colocado em um módulo de classe e a rotina Initialize_handler deve ser chamada para que o Microsoft Outlook chame o procedimento de evento.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.