Nwlapcug.com


Come accedere a un allegato di E-mail VBA 2007

Come accedere a un allegato di E-mail VBA 2007


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