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

Objeto de Aplicativo

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.