Visual Basic für Applikationen ( VBA) ist eine Programmiersprache, die üblicherweise in Office-Anwendungen verwendet, um Routineaufgaben zu automatisieren . Sie können ganz einfach schreiben VBA-Code für eine bestimmte Anlage in Ihrem Posteingang Ordner suchen und speichern Sie sie in einen Ordner Ihrer Wahl . Anleitung
1

Starten Sie Microsoft Access 2007 , wählen Sie die " Database Tools " und klicken Sie auf " Visual Basic " . Wählen Sie das Menü "Extras" und dann auf " Referenzen " . Aktivieren Sie das Kontrollkästchen neben " Microsoft Outlook 12.0 Object Library" und klicken Sie auf "OK"
2

Geben Sie den folgenden , um eine neue zu erstellen sub : .

Sub getEemailAttachment ()

Typ "Enter ", um die "End Sub " automatisch
3

Geben Sie den folgenden Ihre Variablen , die verwendet werden , um Ihre Outlook-Anlagen zugegriffen wird erklären : .
< p> Dim NMSP Wie nameSpace

Dim oInbxFldr Wie MAPIFolder

Dim objMailItems As Object Dim

emailAttachment Wie Outlook.Attachment
4

Typ der nach Ihren Namespace definieren und definieren Sie die Variable zu halten, die Outlook-Posteingang Ordner :

Set NMSP = GetNamespace ( " MAPI " ) Set

oInbxFldr = nmSp.GetDefaultFolder ( olFolderInbox )

5

Geben Sie den folgenden in einer Schleife durch alle Anhänge und speichern Sie Ihre Verbundenheit mit "C: \\ " , wenn es gefunden:

For Each objMailItems In oInbxFldr.Items

For Each emailAttachment In objMailItems.attachments

Wenn emailAttachment.FileName = " myAttachment.doc " Dann

emailAttachment.SaveAsFile "C: \\ " & attachmentFileName

End If
< p> Weiter emailAttachment

Weiter objMailItems

You " myAttachment.doc " mit dem Namen Ihres Befestigung in der folgenden Zeile ersetzen:

Wenn emailAttachment.FileName = " myAttachment . doc "
6

Geben Sie den folgenden , um Ihren Variablen aus dem Speicher freizugeben :

Set emailAttachment = Nothing Set

objMailItems = Nothing

Set NMSP = Nothing