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