Visual Basic for Applications (VBA) è un linguaggio di programmazione comunemente usato nelle applicazioni di Office per automatizzare operazioni di routine. È possibile scrivere facilmente codice VBA per cercare un allegato specifico nella cartella posta in arrivo e salvarlo in una cartella di vostra scelta.
Istruzioni
1
Avviare Microsoft Access 2007, selezionare la scheda "Strumenti di Database" e scegliere "Visual Basic". Selezionare il menu "Strumenti" e scegliere "Riferimenti". Seleziona la casella accanto a "Microsoft Outlook 12.0 Object Library" e fare clic su "OK".
2
Digitare il comando seguente per creare un nuovo sub:
Sub getEemailAttachment()
Digitare "Enter" per creare "End Sub" automaticamente.
3
Digitare quanto segue per dichiarare le variabili che verranno utilizzate per accedere gli allegati di Outlook:
Dim nmSp come spazio dei nomi
Dim oInbxFldr As MAPIFolder
Dim objMailItems As Object
Dim emailAttachment As. Attachment
4
Digitare quanto segue per definire lo spazio dei nomi e definire la variabile che deve contenere la cartella di posta in arrivo di Outlook:
Impostare nmSp = GetNamespace("MAPI")
Impostare oInbxFldr = nmSp.GetDefaultFolder(olFolderInbox)
5
Digitare quanto segue per scorrere in ciclo tutti i vostri attaccamenti e salvare il vostro attaccamento alla "C:\" quando si è scoperto:
Per ogni objMailItems In oInbxFldr.Items
Per ogni emailAttachment In objMailItems.attachments
If emailAttachment.FileName = "myAttachment.doc" Then
emailAttachment.SaveAsFile "C:\" & attachmentFileName
End If
Prossimo emailAttachment
Prossimo objMailItems
È possibile sostituire "myAttachment.doc" con il nome del vostro attaccamento nella riga seguente:
Se emailAttachment.FileName = "myAttachment.doc"
6
Digitare il comando seguente per rilasciare le variabili dalla memoria:
Impostare emailAttachment = Nothing
Impostare objMailItems = Nothing
Impostare nmSp = Nothing