Πώς να χρησιμοποιήσετε VBA για το ηλεκτρονικό ταχυδρομείο στην Access

Δημιουργώντας ένα πρόγραμμα διαχείρισης e-mail μέσα σε βάση δεδομένων της Microsoft Access σας να κάνετε την αίτησή σας Πρόσβασης πιο πολύτιμο και πιο δυναμική . Στην VBA μπορείτε να χρησιμοποιήσετε τη βιβλιοθήκη αντικειμένων του Microsoft Outlook για τη δημιουργία ηλεκτρονικού ταχυδρομείου και πρόσβαση τους φακέλους ηλεκτρονικού ταχυδρομείου στο Microsoft Outlook . Η βιβλιοθήκη σας επιτρέπει να δημιουργήσετε μέσω προγραμματισμού και να στείλετε ένα e-mail , χωρίς να χρειάζεται να ανοίξετε το Outlook . Χρησιμοποιήστε αυτήν τη βιβλιοθήκη για να στείλετε e-mail αυτόματα για τους χρήστες με πληροφορίες της βάσης δεδομένων που είναι σημαντικό για αυτούς . Οδηγίες
Η

1 Κάντε κλικ στην καρτέλα " Εργαλεία βάσης δεδομένων " , κάντε κλικ στο " Visual Basic " και κάντε κλικ στο μενού "Εισαγωγή" . Κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα VBA . 2

Κάντε κλικ στο μενού "Εργαλεία" και κάντε κλικ στο "Αναφορές" . Επιλέξτε το πλαίσιο δίπλα στο " βιβλιοθήκη αντικειμένων " και κάντε κλικ στο " OK" .
Εικόνων 3

Δημιουργήστε μια νέα διαδικασία ρουτίνας και να καθορίσει τα αντικείμενα του Outlook με την προσθήκη της ακόλουθης κώδικα VBA :

Private Sub createEmail ( )

Σετ outlookApp = CreateObject ( " Outlook.Application " )

Dim myItem As Object

Set myItem = outlookApp.CreateItem ( olMailItem )
Η 4

Δημιουργήστε ένα νέο στοιχείο ηλεκτρονικού ταχυδρομείου με την προσθήκη του παρακάτω κώδικα :

myItem.Subject = " το θέμα του email "

myItem.Body = " μήνυμα ηλεκτρονικού ταχυδρομείου "

myItem.To = " myname@myemail.com "

myItem.Send
5

Επεξεργαστείτε το προηγούμενο βήμα και εισάγετε μια έγκυρη διεύθυνση ηλεκτρονικού ταχυδρομείου αντιμετώπιση δίπλα στο " myItem.To " για να στείλετε το μήνυμα ηλεκτρονικού ταχυδρομείου . Πληκτρολογήστε " End Sub " για να τερματίσετε τη διαδικασία και πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία σας και να στείλετε το μήνυμα ηλεκτρονικού ταχυδρομείου χρησιμοποιώντας το Outlook .
Η 6

Διαβάστε το μήνυμα στο φάκελο Εισερχόμενα σας και θα εμφανιστεί το παράθυρο Immediate σας με τη δημιουργία το ακόλουθο εδάφιο διαδικασία :

Private Sub checkEmail ( )

Σετ OLApp = CreateObject ( " Outlook.Application " )

Set MAPIS = OLApp.GetNamespace ( " MAPI " )

Set outlookFolder = MAPIs.GetDefaultFolder ( olFolderInbox )

για κάθε myMail Σε outlookFolder.Items

Debug.Print myMail.Subject

Debug.Print myMail . Σώμα

Επόμενο myMail

End Sub
Η

7 Πατήστε το πλήκτρο " F5 " για να εκτελέσει τη διαδικασία .

Η