Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Spustite program Microsoft Access 2007 , vyberte " Databázové nástroje " a kliknite na " Visual Basic " . Kliknite na menu " Nástroje " a vyberte " Odkazy " . Zaškrtnite políčko vedľa " Microsoft Outlook Knižnica 12.0 Object " a vyberte možnosť " OK " . 
 2 
 Zadajte nasledujúce vytvoriť sub : 
 
 Sub getOutlookAttachments ( ) 
 
 Stlačte tlačidlo " Enter " 
 3 
 Zadajte nasledujúce vytvárať premenné : 
 
 Dim odbor názvov ako menný priestor 
 
 Dim InboxFolder ako MAPIFolder 
 
 Dim outlookItem ako objekt 
 
 Dim mailAttachment ako Outlook.Attachment 
 
 Dim fname As String 
 4 
zadajte nasledujúce definovať premenné : Autor
 Set namespace = GetNamespace ( " MAPI " ) 
 
 Set InboxFolder = nameSpace.GetDefaultFolder ( olFolderInboxFolder ) 
 5 
zadajte nasledujúce prechádzať vašej priečinka Doručená pošta , vyhľadávanie príloh a uložiť ich do priečinka C : \\ : klipart
 pre každú outlookItem v InboxFolder.outlookItems 
 
 každý mailAttachment v outlookItem.Attachments 
 
 fname = " C : \\ " & mailAttachment . fname 
 
 mailAttachment.SaveAsFile fname 
 
 Ďalšie mailAttachment 
 
 Ďalšie outlookItem 
 6 
 zadajte nasledujúce uvoľniť svoje premenné z pamäti : 
 
 Set mailAttachment = Nothing 
 
 Nastaviť outlookItem = Nothing 
 
 Nastaviť namespace = Nothing 
 
 Execute subwoofer uložiť prílohy e - mailov programu Outlook do " C : \\ "