sábado, 8 de maio de 2010

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

Nenhum comentário:

Pesquisar este blog

Arquivo do blog

Quem sou eu

Minha foto
Administrador de Empresas/Técnico em Processamento de Dados. Microsoft Office User Specialist - Excel Proficient. Pós-graduado em Business Intelligence.