Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
Daniel Mendes

Trigger quando movo e-mail

Recommended Posts

Daniel Mendes

Bom dia,

Estou a desenvolver uma macro (ainda em estado muito embrionário) em que a ideia seria, ao arquivar um e-mail (arquivo oulook) o e-mail seria automaticamente copiado para um local da rede correspondente ao projeto em causa.

Neste momento estou encalhado no passo inicial, ou seja, como desencadear (trigger) o código ao mover o e-mail para o arquivo? Eu consigo fazê-lo se indicar a pasta específica no arquivo, mas não para a generalidade das pasta do arquivo.

Em baixo deixo o código que já tenho (retirado de outros sitios e com algumas modificações) e que cria uma msg box quando um e-mail entra numa determinada pasta.

Obrigado pela ajuda

Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
 Dim olApp As Outlook.Application
 Dim objNS As Outlook.NameSpace
 Set olApp = Outlook.Application
 Set objNS = olApp.GetNamespace("MAPI")
  Set MyFolder1 = objNS.Folders("Archives")
  Set MyFolder2 = MyFolder1.Folders("SGPS")
  Set Items = MyFolder2.Items
End Sub
Private Sub Items_ItemAdd(ByVal item As Object)
   Dim Msg As Outlook.MailItem
 If TypeName(item) = "MailItem" Then
   Set Msg = item
   ' ******************
   MsgBox "entra"
   ' ******************
 End If
ProgramExit:
 Exit Sub
End Sub

Edited by thoga31
GeSHi

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.