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 : \\ "