Ir para o conteúdo
Daniel Mendes

Trigger quando movo e-mail

Mensagens Recomendadas

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

Editado por thoga31
GeSHi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.