Start Microsoft Access 2007 1 , selecteert u het tabblad " Database Tools" en klik op " Visual Basic " . Selecteer het menu "Extra " en klik op " References " . Vink het vakje aan naast " Microsoft Outlook 12.0 Object Library " en klik op "OK "

Type 2 het volgende om een nieuwe sub maken: .

Sub getEemailAttachment
( ) op Twitter

Type " Enter " om de " End Sub " automatisch creëren

Type 3 het volgende om uw variabelen die zal worden gebruikt om toegang te krijgen tot uw Outlook- bijlagen verklaren : .

Dim NMSP als namespace

Dim oInbxFldr
Zoals MAPIFolder

Dim objMailItems
als Voorwerp

Dim emailAttachment Zoals Outlook.Attachment

Type 4 de volgen om uw naamruimte te definiëren en bepalen de variabele te houden de Outlook inbox folder :

Set NMSP = GetNamespace ( " MAPI " ) op Twitter

Stel oInbxFldr = nmSp.GetDefaultFolder ( olFolderInbox ) op < br

type> 5 de volgende voor het doorlussen van al uw bijlagen en sla uw gehechtheid aan " C : \\ " wanneer het is gevonden :

voor Elke objMailItems In oInbxFldr.Items

voor Elke emailAttachment In objMailItems.attachments

Als emailAttachment.FileName = " myAttachment.doc "

emailAttachment.SaveAsFile dan
" C : \\ " & attachmentFileName

End
Als

volgende emailAttachment

objMailItems volgende

U kunt " myAttachment.doc " met de naam van je gehechtheid aan de volgende regel vervangen:

Als emailAttachment.FileName = " myAttachment . doc "

Type 6 het volgende om uw variabelen los te maken van het geheugen :

Set emailAttachment
= Nothing

Set objMailItems = Nothing

Set
NMSP = Nothing