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

Έχοντας τη γνώση για το πώς να αποθηκεύσετε τα συνημμένα ηλεκτρονικού ταχυδρομείου με χρήση της Visual Basic for Applications ( VBA ) μπορείτε να εξοικονομήσετε χρόνο κατά την εργασία με τα συνημμένα . Μπορείτε να χρησιμοποιήσετε το VBA σε οποιαδήποτε από τις εφαρμογές του Microsoft Office για την αυτοματοποίηση των διαδικασιών , όπως η εξοικονόμηση συνημμένα e-mail από το Outlook . Σε μερικά βήματα , μπορείτε να γράψετε κώδικα VBA για να αποθηκεύσετε τα συνημμένα ηλεκτρονικού ταχυδρομείου σε κάποιο συγκεκριμένο φάκελο στον υπολογιστή σας . Οδηγίες
Η 1

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

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

Sub getOutlookAttachments ( )

Πατήστε "Enter "
εικόνων 3

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

Dim namespace Όπως namespace

Dim InboxFolder Όπως MAPIFolder

Dim outlookItem As Object

Dim mailAttachment Όπως Outlook.Attachment

Dim ΟΝΟΜΑ Όπως String
Η 4

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

Set namespace = GetNamespace ( " MAPI " )

Σετ InboxFolder = nameSpace.GetDefaultFolder ( olFolderInboxFolder )
5

Πληκτρολογήστε το παρακάτω, για να βρόχο μέσω φάκελο εισερχομένων σας , ψάξτε για τα συνημμένα και να τα αποθηκεύσετε στο φάκελο C: \\ :

για κάθε outlookItem σε InboxFolder.outlookItems

για Κάθε mailAttachment σε outlookItem.Attachments

ΟΝΟΜΑ = " C : \\ " & mailAttachment . ΟΝΟΜΑ

mailAttachment.SaveAsFile ΟΝΟΜΑ

Επόμενο mailAttachment

Επόμενο outlookItem
Η 6

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

Set mailAttachment = Τίποτα

Set outlookItem = Τίποτα

Set namespace = Τίποτα

Εκτέλεση υπο σας για να αποθηκεύσετε τα συνημμένα του Outlook e-mail σας στο "C : \\ "


Η