Executar um processo quando o e-mail chegar

Esta é bem interessante: toda vez que chegar um e-mail com um determinado título, executar um processo.
Vamos usar como título, "executa_processo".
Assim, caso eu queira disparar um processo, basta que o meu computador esteja ligado e o Outlook aberto. Quando chegar uma mensagem com o título acima, o processo "minha_rotina" é executado.

;-)

Evento new_mail:
 
Private Sub Application_NewMail()   
   Call Procura   
End Sub
 
 
Sub Procura()
    'Procura mensagem na caixa de entrada
    'Critério: Assunto da mensagem
   
    Dim mySearch        As Search
    Dim myResults       As Results
    Dim intCounter      As Integer
    Dim strMessages     As String
 
    Set mySearch = AdvancedSearch(Scope:="Inbox", Filter:="urn:schemas:mailheader:subject = 'executa_processo'")
    Set myResults = mySearch.Results
    If myResults.Count > 0 Then
        Call minha_rotina
    Else
        Exit Sub
    End If
       
  
End Sub