VBA Outlook - Verifica anexos e salva em diretório

Bom dia pessoal!

a minha dúvida não é exatamente de access, mas sim de VBA.

fiz uma programação no outlook para que fosse acionada por uma regra do outlook, sempre que chegar um e-mail de um determinado remetente.

a macro examina o e-mail, pega os anexos que não tem extensões jpg ou gif e salva em diretório.

o problema é que funcionou duas vezes e depois nunca mais.

alguém pode me ajudar?

segue o código:

Public Sub SalvarAnexo(item As MailItem)

Dim Anexo As Attachment
Dim FileName As String
Dim item As MailItem


caminho = "C:\MIS\02_RELATORIOS\"

For Each Anexo In item.Attachments
If Right(Anexo.FileName, 4) = "html" Then
FileName = caminho & item.Subject & "-" & Anexo
Anexo.SaveAsFile FileName
Resume Next
End If

If Right(Anexo.FileName, 4) = ".gif" Or Right(Anexo.FileName, 4) = ".jpg" Then
GoTo prox
Else
FileName = caminho & Anexo
Anexo.SaveAsFile FileName
End If

prox:
Next Anexo

End Sub

Já fez uma depuração no VBA para ver se não contem algum erro de código? Verifique tambem se tem alguma referência escrito AUSENTE. Veja tambem se as macros não estão desabilitadas.

Obrigado pela resposta criquio.

já havia depurado o código e ele tinha funcionado. também habilitei as macros (uso o office 2007, fui em feramentas\macros\segurança\habilitar todas as macros).

porém, após a sua dica, fui fazer todas essas verificações novamente e percebi que o código está no modo de criação somente, por isso que ele não executa. entretanto, quando fui sair do modo de criação ele aparece a mensagem que A macros neste projeto estão desativadas.

como faço para ativá-las? a única maneira que conheço é pelo caminho que descrevi!

obrigado mais uma vez!