Het hebben van de kennis over hoe e-mailbijlagen te besparen met behulp van Visual Basic for Applications ( VBA ) kunt u tijd besparen bij het werken met bijlagen . U kunt VBA gebruiken in een van de Microsoft Office-toepassingen te automatiseren , zoals het opslaan van e-mailbijlagen van Outlook . In een paar stappen kunt u VBA-code schrijven om e-mailbijlagen opslaan in een bepaalde map op uw computer . Instructies
Start Microsoft Access 2007 1 , selecteer " Database Tools" en klik op " Visual Basic . " Klik op het menu "Extra " en selecteer " Referenties . " Vink het vakje aan naast " Microsoft Outlook 12.0 Object Library " en selecteer
Type 2 het volgende om een sub creëren " OK . " : Sub getOutlookAttachments
( ) op Druk op " Enter "
Type 3 het volgende om uw variabelen te maken: Dim namespace
als namespace Dim InboxFolder
Zoals MAPIFolder
Dim outlookItem als Voorwerp
Dim mailAttachment Zoals Outlook.Attachment Dim fname
als Koord
Type 4 het volgende om uw variabelen te definiëren :
Set namespace = GetNamespace ( " MAPI " ) Set InboxFolder
= nameSpace.GetDefaultFolder ( olFolderInboxFolder )
5 Typ het volgende om lus door uw inbox , zoeken naar bijlagen en deze opslaan in C : \\ :
voor Elke outlookItem In InboxFolder.outlookItems
voor Elke mailAttachment In outlookItem.Attachments fname
= " C : \\ " & mailAttachment . fname mailAttachment.SaveAsFile fname volgende mailAttachment
volgende outlookItem
Type 6 het volgende om uw variabelen los te maken van het geheugen :
Set mailAttachment = Nothing
Stel outlookItem = Nothing Set namespace
= Nothing
Voer je sub aan uw Outlook- e-mailbijlagen te slaan in " C : \\ " < br >
|
