Salvando anexo de email

Problema
  Salvar o anexo do email em um diretorio.

Solução
- Entre no menu Ferramentas->Macro -> Editor do Visual Basic.

- Insira o método abaixo.

Public Sub SalvaAnexo(Item As Outlook.MailItem)
     lCountEachItem = Item.Attachments.Count
     Set atmts = Item.Attachments
      atmts.Item(1).SaveAsFile "c:\" 
  
End Sub

- Salve e feche a janela do "Microsoft Visual Basic".
- Entre no menu Ferramentas-> Regras e Alertas.
- Clique em "Nova Regra...".

- Selecione a opção "Verificar mensagens quando chegarem".

- Na próxima opção, "Que condições você deseja verificar?" clique em Avançar.

- Selecione a opção "executar um script".
- Escolha o script e o selecione.

- Clique em Avançar.
- Nas exceções, não marque nada e clique em Avançar.
- Será exibido o resumo da regra e o campo para inserção do nome.

- Clique em Concluir, verifique quando um email com anexo chegar se o mesmo será salvo no diretório desejado.

Abraços