Disparar una macro Outlook 2003 cuando el usuario crea un nuevo mensaje en blanco
-
01-10-2019 - |
Pregunta
He encontrado eventos que se activan cuando el usuario recibe un mensaje, o golpea el botón de enviar, pero nada que se activan cuando el usuario crea un espacio en blanco, nuevo correo electrónico.
Solución
debe ser capaz de utilizar el evento NewInspector. Ejemplo:
Public WithEvents myOlInspectors As Outlook.Inspectors
Private Sub Application_Startup()
Initialize_handler
End Sub
Public Sub Initialize_handler()
Set myOlInspectors = Application.Inspectors
End Sub
Private Sub myOlInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
Dim msg As Outlook.MailItem
If Inspector.CurrentItem.Class = olMail Then
Set msg = Inspector.CurrentItem
If msg.Size = 0 Then
MsgBox "New message"
End If
End If
End Sub
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow