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