Avviare Microsoft Access 2007 , selezionare la scheda " Strumenti database " e clicca su " Visual Basic " . Selezionare il menu " Strumenti " e cliccare su "Riferimenti" . Seleziona la casella accanto a " 12.0 Libreria oggetti di Microsoft Outlook " e fare clic su " OK" 
 2 
Digitare quanto segue per creare una nuova sotto : .
 
 GetEemailAttachment Sub ( ) per 
 tipo "Enter" per creare le "End Sub " automaticamente 
 3 
 digitare quanto segue per dichiarare le variabili che verranno utilizzate per accedere ai collegamenti di prospettiva : . 
 
 Dim NMSP Come nameSpace 
 
 Dim oInbxFldr Come MAPIFolder 
 
 Dim objMailItems As Object Dim 
 
 emailAttachment Come Outlook.Attachment 
 4 
 Tipo l' a seguito di definire lo spazio dei nomi e definire la variabile per contenere la casella di posta di Outlook cartella : 
 
NMSP = GetNamespace ( " MAPI " ) per
 oInbxFldr = nmSp.GetDefaultFolder ( olFolderInbox ) per 
 5 
 digitare quanto segue per scorrere tutti gli allegati e salvare il vostro attaccamento a "C : \\ ", quando si è trovato : 
 
 For Each objMailItems in oInbxFldr.Items 
 
 For Each emailAttachment In objMailItems.attachments 
 
 emailAttachment.FileName = " myAttachment.doc " Allora 
 
 emailAttachment.SaveAsFile "C : \\ " & attachmentFileName 
 
 End If 
 
 Avanti emailAttachment 
 
 Avanti objMailItems 
 
 È possibile sostituire " myAttachment.doc " con il nome del vostro attaccamento nella seguente riga : 
 
 emailAttachment.FileName = " myAttachment . doc " 
 6 
 digitare quanto segue per rilasciare le variabili dalla memoria : 
 
 emailAttachment = Nothing Set 
 
 objMailItems = Nothing Set 
 
 NMSP = Nothing 
 
              
Programmazione © www.354353.com