Visual Basic, Applications Edition (VBA) è un linguaggio di programmazione comunemente usato nelle applicazioni di Office per automatizzare le attività di routine. Si può facilmente scrivere codice VBA per la ricerca di un allegato specifico nella cartella Posta in arrivo e salvarlo in una cartella di propria scelta.

istruzione

1 Avviare Microsoft Access 2007, selezionare la scheda "Database Tools" e fare clic su "Visual Basic". Selezionare il menu "Strumenti" e fare clic su "Riferimenti". Seleziona la casella accanto a "Microsoft Outlook 12.0 Object Library" e fare clic su "OK".

2 Digitare la seguente per creare una nuova sotto:

Sub getEemailAttachment ()

Digitare "Enter" per creare la "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

objMailItems fiochi come oggetto

Dim emailAttachment Come Outlook.Attachment

4 Digitare la seguente per definire lo spazio dei nomi e definire la variabile per tenere la cartella di posta in arrivo di Outlook:

Set NMSP = GetNamespace ( "MAPI")

Set oInbxFldr = nmSp.GetDefaultFolder (olFolderInbox)

5 Digitare quanto segue per scorrere tutti gli allegati e salvare il vostro attaccamento a "C: \" quando ha trovato:

Per ogni objMailItems In oInbxFldr.Items

Per ogni emailAttachment In objMailItems.attachments

If emailAttachment.FileName = "myAttachment.doc" Then

emailAttachment.SaveAsFile "C: \" & attachmentFileName

Finisci se

Successivo emailAttachment

objMailItems Avanti

È possibile sostituire "myAttachment.doc" con il nome del vostro attaccamento nella riga seguente:

Se emailAttachment.FileName = "myAttachment.doc"

6 Digitare quanto segue per rilasciare le variabili dalla memoria:

Set emailAttachment = Nothing

Set objMailItems = Nothing

Impostare NMSP = Nothing