Visual Basic for Applications ( VBA ) är ett programmeringsspråk som vanligen används i Office-program för att automatisera rutinuppgifter . Du kan enkelt skriva VBA-kod för att söka efter en viss anslutningspunkt i din inkorg och spara den i en mapp som du väljer . Instruktioner
1
Starta Microsoft Access 2007 , välj " Databas Verktyg " fliken och klicka på " Visual Basic " . Välj " Verktyg " -menyn och klicka på " Referenser " . Markera rutan bredvid " Microsoft Outlook 12.0 Object Library " och klicka " OK "
2
Skriv följande för att skapa en ny sub : .
Sub getEemailAttachment ( ) katalog
Type " Enter " för att skapa " End Sub " automatiskt Addera 3
Skriv följande för att deklarera dina variabler som kommer att användas för att komma åt dina Outlook bilagor : .
Dim NMSP Som namespace
Dim oInbxFldr Som MAPIFolder
Dim objMailItems As Object
Dim emailAttachment Som Outlook.Attachment
4
Skriv efter att definiera ditt namespace och definiera variabeln för att hålla Outlook inkorgen :
Set NMSP = GetNamespace ( " MAPI " ) katalog
Set oInbxFldr = nmSp.GetDefaultFolder ( olFolderInbox ) katalog
5
Skriv följande för att loopa igenom alla dina bilagor och spara din anknytning till " C : \\ " när det hittas :
för varje objMailItems i oInbxFldr.Items
för varje emailAttachment I objMailItems.attachments
p Om emailAttachment.FileName = " myAttachment.doc " Då
emailAttachment.SaveAsFile " C : \\ " & attachmentFileName
End If
Nästa emailAttachment
Nästa objMailItems
Du kan byta ut " myAttachment.doc " med namnet på din infästning i följande rad :
p Om emailAttachment.FileName = " myAttachment . doc "
6
Skriv följande för att frigöra dina variabler från minnet :
Set emailAttachment = Nothing
Set objMailItems = Nothing
Set NMSP = Nothing
