Πώς να αποκτήσετε πρόσβαση σε VBA 2007 Συνημμένο E-mail

Visual Basic for Applications ( VBA ) είναι μια γλώσσα προγραμματισμού που χρησιμοποιούνται συνήθως σε εφαρμογές του Office για να αυτοματοποιήσουν εργασίες ρουτίνας . Μπορείτε να γράψετε εύκολα κώδικα VBA για να αναζητήσετε ένα συγκεκριμένο συνημμένο στο φάκελο εισερχομένων σας και να το αποθηκεύσετε σε ένα φάκελο της επιλογής σας . Οδηγίες
Η 1

Ξεκινήστε τη Microsoft Access 2007 , επιλέξτε " Εργαλεία βάσης δεδομένων " καρτέλα και κάντε κλικ στο " Visual Basic" . Επιλέξτε από το μενού "Εργαλεία" και κάντε κλικ στο " Αναφορές" . Επιλέξτε το πλαίσιο δίπλα στην επιλογή " Microsoft Outlook 12.0 Object Library " και κάντε κλικ στο " OK" 2

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο sub : .

Sub getEemailAttachment ( )

Πληκτρολογήστε "Enter " για να δημιουργήσετε το " End Sub " αυτόματα
εικόνων 3

Πληκτρολογήστε το παρακάτω για να δηλώσετε τις μεταβλητές σας, που θα χρησιμοποιηθεί για την πρόσβαση σε συνημμένα του Outlook : .

Dim NMSP Όπως namespace

Dim oInbxFldr Όπως MAPIFolder

Dim objMailItems As Object

Dim emailAttachment Όπως Outlook.Attachment
Η 4

Πληκτρολογήστε το παρακάτω, για να καθορίσει ονομάτων σας και να ορίσετε τη μεταβλητή για να κρατήσει το φάκελο εισερχομένων του Outlook :

Set NMSP = GetNamespace ( " MAPI " )

Σετ oInbxFldr = nmSp.GetDefaultFolder ( olFolderInbox )

5

Πληκτρολογήστε τα ακόλουθα στο βρόχο μέσα όλα τα συνημμένα αρχεία σας και να εξοικονομήσετε προσκόλληση σε " C : \\ " σας όταν βρέθηκαν :

για κάθε objMailItems σε oInbxFldr.Items

για κάθε emailAttachment Σε objMailItems.attachments

Εάν emailAttachment.FileName = " myAttachment.doc " Τότε

emailAttachment.SaveAsFile " C : \\ " & attachmentFileName

End If

Επόμενη emailAttachment

Επόμενο objMailItems

Μπορείτε να αντικαταστήσετε " myAttachment.doc " με το όνομα του συνημμένου σας στην ακόλουθη γραμμή :

Εάν emailAttachment.FileName = " myAttachment . doc "
Η 6

Πληκτρολογήστε τα παρακάτω για να απελευθερώσει τις μεταβλητές σας από τη μνήμη :

Set emailAttachment = Τίποτα

Set objMailItems = Τίποτα

Set NMSP = Τίποτα
Η
εικόνων