Tener el conocimiento sobre la forma de guardar los archivos adjuntos de correo electrónico utilizando Visual Basic para Aplicaciones ( VBA ), puede ahorrar tiempo cuando se trabaja con archivos adjuntos. Puede utilizar VBA en cualquiera de las aplicaciones de Microsoft Office para automatizar procesos tales como el ahorro de archivos adjuntos de correo electrónico de Outlook. En unos pocos pasos, puede escribir código VBA para guardar los archivos adjuntos de correo electrónico en una carpeta especial en su computadora . Instrucciones
1

Inicie Microsoft Access 2007 , seleccione "Herramientas de base de datos" y haga clic en "Visual Basic ". Haga clic en el menú " Herramientas " y seleccione "Referencias ". Marque la casilla junto a " Perspectivas 12.0 Biblioteca de objetos de Microsoft " y seleccione
2

Escriba lo siguiente para crear un sub "OK ". :

GetOutlookAttachments Sub ( )
< p> Presione "Enter "
3

Escriba lo siguiente para crear sus variables:

espacioNombres As espacioNombres

InboxFolder Dim As
MAPIFolder

OutlookItem Dim As Object

MailAttachment As Outlook.Attachment

fname dévil como secuencia
4

Escriba lo siguiente para definir las variables :

Set namespace = GetNamespace ( " MAPI " )

Set InboxFolder = nameSpace.GetDefaultFolder ( olFolderInboxFolder )
5

Escriba lo siguiente para recorrer a través de su bandeja de entrada , busque archivos adjuntos y guardarlos en C: \\ :

For Each OutlookItem En InboxFolder.outlookItems

For Each MailAttachment En outlookItem.Attachments

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

mailAttachment.SaveAsFile fname

Siguiente MailAttachment

Siguiente OutlookItem
6

Escriba lo siguiente para liberar las variables de la memoria :

MailAttachment Set = Nothing

OutlookItem Set = Nothing

espacioNombres Set = Nothing

ejecutar sus sub para guardar los archivos adjuntos de correo electrónico de Outlook a " C: \\ " < br >