Evento Application.NewMail (Outlook)

Se produce cuando se reciben uno o varios mensajes de correo electrónico nuevos en la Bandeja de entrada.

Sintaxis

expresión. NewMail

expresión Variable que representa un objeto Application.

Comentarios

Este evento no está disponible en Microsoft Visual Basic Scripting Edition (VBScript).

El evento NewMail se desencadena cuando llegan nuevos mensajes a la Bandeja de entrada y antes de que tenga lugar el procesamiento de reglas del cliente. Si desea procesar los elementos que lleguen a la Bandeja de entrada, considere el uso del evento ItemAdd en la colección de elementos en la Bandeja de entrada. El evento ItemAdd pasa una referencia a cada elemento que se agrega a una carpeta.

El evento NewMail no se desencadena cuando el usuario está en modo sin conexión.

Ejemplo:

En este ejemplo de Microsoft Visual Basic para Aplicaciones (VBA) se muestra la carpeta Bandeja de entrada cuando llega un nuevo mensaje de correo electrónico. El código de ejemplo debe incluirse en un módulo de clase, y se debe llamar a la rutina Initialize_handler antes de que Microsoft Outlook pueda llamar al procedimiento 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

Vea también

Objeto Application

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.