Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Modalità di accesso a VBA email Allegato 2007

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 tua cartella di posta in arrivo e salvarlo in una cartella a vostra scelta . Istruzioni
1

Avviare Microsoft Access 2007 , selezionare la scheda " Strumenti database " e clicca su " Visual Basic " . Selezionare il menu " Strumenti " e cliccare su "Riferimenti" . Seleziona la casella accanto a " 12.0 Libreria oggetti di Microsoft Outlook " e fare clic su " OK"
2

Digitare quanto segue per creare una nuova sotto : .


GetEemailAttachment Sub ( ) per

tipo "Enter" per creare le "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

Dim objMailItems As Object Dim

emailAttachment Come Outlook.Attachment
4

Tipo l' a seguito di definire lo spazio dei nomi e definire la variabile per contenere la casella di posta di Outlook cartella :

NMSP = GetNamespace ( " MAPI " ) per

oInbxFldr = nmSp.GetDefaultFolder ( olFolderInbox ) per
5

digitare quanto segue per scorrere tutti gli allegati e salvare il vostro attaccamento a "C : \\ ", quando si è trovato :

For Each objMailItems in oInbxFldr.Items

For Each emailAttachment In objMailItems.attachments

emailAttachment.FileName = " myAttachment.doc " Allora

emailAttachment.SaveAsFile "C : \\ " & attachmentFileName

End If

Avanti emailAttachment

Avanti objMailItems

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

emailAttachment.FileName = " myAttachment . doc "
6

digitare quanto segue per rilasciare le variabili dalla memoria :

emailAttachment = Nothing Set

objMailItems = Nothing Set

NMSP = Nothing

 

Programmazione © www.354353.com