Cómo acceder a una 2007 VBA correo Archivo adjunto

Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación de uso general en las aplicaciones de Office para automatizar tareas rutinarias. Usted puede escribir código VBA para buscar una unión específica en tu bandeja de entrada y guardarlo en una carpeta de su elección. Instrucciones
1

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

Escriba lo siguiente para crear un nuevo sub : .

Sub getEemailAttachment ()

Type " Enter" para crear las "End Sub " automáticamente
3

Escriba lo siguiente para declarar las variables que se utilizan para acceder a los archivos adjuntos de Outlook : .
< p> NMSP As espacioNombres

oInbxFldr As MAPIFolder

objMailItems dévil como objeto

emailAttachment As Outlook.Attachment
4

Escriba el después de definir el espacio de nombres y definir la variable que contiene la carpeta de buzón de Outlook :

Set NMSP = GetNamespace ( " MAPI " )

Establecer oInbxFldr = nmSp.GetDefaultFolder ( olFolderInbox )

5

Escriba lo siguiente para recorrer todos los archivos adjuntos y guardar su apego a "C: \\ " cuando se encontró :

For Each objMailItems en oInbxFldr.Items

For Each emailAttachment En objMailItems.attachments

Si emailAttachment.FileName = " myAttachment.doc " Entonces

emailAttachment.SaveAsFile "C: \\ " & attachmentFileName

End If
< p > emailAttachment Siguiente

Siguiente objMailItems

puede sustituir " myAttachment.doc " con el nombre del archivo adjunto en la siguiente línea:

Si emailAttachment.FileName = " myAttachment . doc "
6

Escriba lo siguiente para liberar las variables de la memoria :

emailAttachment Set = Nothing

objMailItems Set = Nothing

Set NMSP = Nothing