Avere la conoscenza su come salvare allegati di posta elettronica utilizzando Visual Basic, Applications Edition (VBA) consente di risparmiare tempo quando si lavora con gli allegati. È possibile utilizzare VBA in una qualsiasi delle applicazioni di Microsoft Office per automatizzare i processi come il salvataggio allegati e-mail da Outlook. In pochi passi, è possibile scrivere codice VBA per salvare gli allegati di posta elettronica in una particolare cartella nel computer.

istruzione

1 Avviare Microsoft Access 2007, selezionare "Strumenti database" e clicca su "Visual Basic". Fai clic sul menu "Strumenti" e selezionare "Riferimenti". Seleziona la casella accanto a "Microsoft Outlook 12.0 Object Library" e selezionare "OK".

2 Digitare quanto segue per creare un sub:

getOutlookAttachments sub ()

Premere Invio"

3 Digitare la seguente per creare le variabili:

nameSpace fioco come nameSpace

Dim InboxFolder Come MAPIFolder

Dim outlookItem As Object

Dim MailAttachment Come Outlook.Attachment

Dim fName As String

4 Digitare la seguente per definire le variabili:

Impostare Namespace = GetNamespace ( "MAPI")

Set InboxFolder = nameSpace.GetDefaultFolder (olFolderInboxFolder)

5 Digitare quanto segue per scorrere la cartella Posta in arrivo, la ricerca per gli allegati e salvarli in C: \:

Per ogni outlookItem In InboxFolder.outlookItems

Per ogni MailAttachment In outlookItem.Attachments

fName = "C:\" & mailAttachment.fName

mailAttachment.SaveAsFile fName

Successivo MailAttachment

Successivo outlookItem

6 Digitare quanto segue per rilasciare le variabili dalla memoria:

Set MailAttachment = Nothing

Set outlookItem = Nothing

Impostare Namespace = Niente

Esegui il vostro sub per salvare gli allegati di posta elettronica di Outlook a "C: \"