Tendo o conhecimento sobre a forma de salvar os anexos de e-mail usando o Visual Basic for Applications (VBA) você pode economizar tempo ao trabalhar com anexos. Você pode usar VBA em qualquer um dos aplicativos do Microsoft Office para automatizar processos como salvar anexos de e-mail do Outlook . Em poucos passos, você pode escrever código VBA para salvar anexos de email em qualquer pasta específica em seu computador. Instruções
1

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

Digite o seguinte para criar um sub:

Sub getOutlookAttachments ()

Pressione "Enter"
3

Digite o seguinte para criar as suas variáveis ​​:

Dim espaço de nomes como nameSpace

Dim InboxFolder Como MAPIFolder

Dim OutlookItem as Object Dim

MailAttachment Como Outlook.Attachment

Dim fName as String
4

Digite o seguinte para definir suas variáveis ​​:

Set namespace = GetNamespace ( " MAPI " )

Set InboxFolder = nameSpace.GetDefaultFolder ( olFolderInboxFolder )
5

Digite o seguinte para fazer um loop através de sua pasta caixa de entrada , procure anexos e salvá-los em C: \\ :

para Cada OutlookItem Em InboxFolder.outlookItems

Para Cada MailAttachment Em outlookItem.Attachments

fName = " C: \\ " & MailAttachment . fName

mailAttachment.SaveAsFile fName

Próxima MailAttachment

Próxima OutlookItem
6

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

Set MailAttachment = Nothing

Definir OutlookItem = Nothing

Definir namespace = Nada

Execute seu sub para salvar seu Outlook anexos de e-mail para "C: \\ " < br >