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
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.