-
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: \"