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