Cómo acceder a una VBA adjunto de correo electrónico 2007

Visual Basic para Aplicaciones (VBA) es un lenguaje de programación que se utiliza comúnmente en las aplicaciones de Office para automatizar tareas rutinarias. Usted puede escribir código VBA para buscar una unión específica en la bandeja de entrada y guardarlo en una carpeta de su elección.

Instrucciones

1 Iniciar 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 "Microsoft Outlook 12.0 Object Library" y haga clic en "OK".

2 Escribe lo siguiente para crear un nuevo sub:

Sub getEemailAttachment ()

Tipo "Enter" para crear el "End Sub" de forma automática.

3 Escriba lo siguiente para declarar las variables que se van a utilizar para acceder a sus archivos adjuntos de Outlook:

Dim nMsP Como nameSpace

Dim oInbxFldr Como MAPIFolder

objMailItems dévil como objeto

Dim emailAttachment Como Outlook.Attachment

4 Escribe lo siguiente para definir el espacio de nombres y definir la variable para contener la bandeja de entrada de Outlook:

Establecer 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ó:

Para Cada objMailItems En oInbxFldr.Items

Para cada emailAttachment En objMailItems.attachments

If emailAttachment.FileName = "myAttachment.doc" Then

emailAttachment.SaveAsFile "C: \" & attachmentFileName

Terminara si

Siguiente emailAttachment

Siguiente objMailItems

Puede reemplazar "myAttachment.doc" con el nombre de su archivo adjunto en la siguiente línea:

Si emailAttachment.FileName = "myAttachment.doc"

6 Escriba lo siguiente para liberar las variables de la memoria:

Establecer emailAttachment = Nada

Establecer objMailItems = Nada

Establecer nMsP = nada