Visual Basic for Applications (VBA) é uma linguagem de programação de uso geral em aplicações do Office para automatizar tarefas rotineiras. Você pode facilmente escrever código VBA para procurar um anexo específico na sua pasta de caixa de entrada e salvá-lo para uma pasta de sua escolha. Instruções
1

Inicie o Microsoft Access 2007 , selecione a guia " Ferramentas de banco de dados " e clique em " Visual Basic" . Selecione o menu " Ferramentas " e clique em "Referências" . Marque a caixa ao lado de " 12.0 Object Library Microsoft Outlook " e clique em "OK"
2

Digite o seguinte para criar um novo sub: .

Sub getEemailAttachment ()

Digite " Enter" para criar o " End Sub " automaticamente
3

Digite o seguinte para declarar as variáveis ​​que serão usadas para acessar os anexos do Outlook: .

Dim NMSP Como nameSpace

Dim oInbxFldr Como MAPIFolder

Dim objMailItems Como objeto

Dim emailAttachment Como Outlook.Attachment
4

Digite o a seguir para definir seu namespace e definir a variável para armazenar a pasta caixa de entrada do Outlook :

Set NMSP = GetNamespace ( " MAPI " )

Set oInbxFldr = nmSp.GetDefaultFolder ( olFolderInbox )

5

Digite o seguinte para percorrer todos os anexos e salvar o seu apego ao "C: \\ " quando é encontrado :

para Cada objMailItems em oInbxFldr.Items

Para Cada emailAttachment Em objMailItems.attachments

Se emailAttachment.FileName = " myAttachment.doc " Então

emailAttachment.SaveAsFile "C: \\ " & attachmentFileName

End If

em seguida emailAttachment

Próxima objMailItems

Você pode substituir " myAttachment.doc " com o nome do seu anexo na seguinte linha:

Se emailAttachment.FileName = " myAttachment . doc "
6

Digite o seguinte para liberar suas variáveis ​​de memória :

Set emailAttachment = Nothing

Definir objMailItems = Nothing

Definir NMSP = Nothing