Tecnología

Inicio

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

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


Tener el conocimiento sobre cómo guardar archivos adjuntos de correo electrónico utilizando Visual Basic para Aplicaciones (VBA) le 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 guardar archivos adjuntos de correo electrónico de Outlook. En unos pocos pasos, se puede escribir código VBA para guardar los archivos adjuntos de correo electrónico en cualquier carpeta en particular en su ordenador.

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 "Microsoft Outlook 12.0 Object Library" y seleccione "OK".

2 Escribe lo siguiente para crear una substitución:

getOutlookAttachments sub ()

Presione ENTRAR"

3 Escribe lo siguiente para crear las variables:

nameSpace tenue como nombres de espacio

Dim InboxFolder Como MAPIFolder

Dim outlookItem como objeto

Dim mailAttachment Como Outlook.Attachment

Dim como secuencia fName

4 Escribe lo siguiente para definir las variables:

Establecer namespace = getNamespace ( "MAPI")

Establecer InboxFolder = nameSpace.GetDefaultFolder (olFolderInboxFolder)

5 Escriba el siguiente colocar a través de la bandeja de entrada, buscar archivos adjuntos y guardarlos en C: \:

Para cada outlookItem En InboxFolder.outlookItems

Para cada 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:

Establecer mailAttachment = Nada

Establecer outlookItem = Nada

Establecer namespace = Nada

Ejecutar su sub para guardar los archivos adjuntos de correo electrónico de Outlook a "C: \"