Visual Basic for Applications ( VBA ) er et programmeringsspråk som vanligvis brukes i Office-programmer for å automatisere rutineoppgaver . Du kan enkelt skrive VBA -kode for å søke etter et bestemt vedlegg i innboksen din mappe og lagre det i en valgfri mappe . Instruksjoner
en

Start Microsoft Access 2007 , velg " Database Tools " og klikk " Visual Basic" . Velg "Verktøy "-menyen og klikk på "Referanser" . Kryss av i boksen ved siden av " Microsoft Outlook 12.0 Object Library " og klikk " OK"
2

Skriv inn følgende for å opprette en ny sub : .

Sub getEemailAttachment ( )

Type " Enter" for å skape "End Sub " automatisk
3

Skriv inn følgende å erklære variabler som skal brukes for å få tilgang til Outlook vedlegg: .
< p> Dim nmSp Som navnerommet

Dim oInbxFldr Som MAPIFolder

Dim objMailItems Som Object

Dim emailAttachment Som Outlook.Attachment
4

Skriv inn etter å definere din namespace og definere variabelen for å holde Outlook innboks -mappe : en

Set nmSp = GetNamespace ( " MAPI ")

Sett oInbxFldr = nmSp.GetDefaultFolder ( olFolderInbox )

5

Skriv inn følgende å sløyfe gjennom alle vedlegg og lagre vedlegg til "C : \\ " når det er funnet : en

for hver objMailItems i oInbxFldr.Items

for Each emailAttachment I objMailItems.attachments
p Hvis emailAttachment.FileName = " myAttachment.doc " Da

emailAttachment.SaveAsFile "C : \\ " & attachmentFileName

End If
< p > Neste emailAttachment

Neste objMailItems

Du kan erstatte " myAttachment.doc " med navnet på vedlegget i følgende linje : en p Hvis emailAttachment.FileName = " myAttachment . doc "
6

Skriv inn følgende for å frigjøre dine variabler fra minnet : en

Set emailAttachment = Ingenting

Set objMailItems = Ingenting

Set nmSp = Ingenting