avvia Microsoft Access 2007 , selezionare " Strumenti di database " e clicca su " Visual Basic ". Fai clic sul menu "Strumenti" e selezionare "Riferimenti ". Seleziona la casella accanto a " 12.0 Libreria oggetti di Microsoft Outlook" e selezionare 
 2 
 digitare quanto segue per creare un sub "OK ". : 
 
GetOutlookAttachments Sub ( ) per
 Premere il tasto " Enter" 
 3 
 digitare quanto segue per creare le variabili : 
 
 Dim namespace nameSpace 
 
 Dim InboxFolder Come 
 MAPIFolder 
 Dim OutlookItem As Object Dim 
 
 MailAttachment Come Outlook.Attachment 
 
 Dim fName As String 
 4 
 Digitare quanto segue per definire le variabili : 
 
namespace = GetNamespace ( " MAPI " ) per
InboxFolder = nameSpace.GetDefaultFolder ( olFolderInboxFolder ) economici 5
 digitare quanto segue per ciclo attraverso la cartella di posta in arrivo , ricerca per gli allegati e salvarli in C : \\ : 
 
 Ogni OutlookItem In InboxFolder.outlookItems 
 
 Ogni MailAttachment In outlookItem.Attachments 
 
 fName = " C : \\ " & MailAttachment . fName 
 
 mailAttachment.SaveAsFile fName 
 
 Avanti MailAttachment 
 
 Avanti OutlookItem 
 6 
 digitare quanto segue per rilasciare le variabili dalla memoria : 
 
 MailAttachment = Nothing 
 
 OutlookItem = Nothing Set 
 
 namespace = Niente 
 
 eseguire il sub per salvare gli allegati di posta elettronica di Outlook in "C: \\ " 
 
              
Programmazione © www.354353.com