Ξεκινήστε τη Microsoft Access 2007 , κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και επιλέξτε " Visual Basic ". Επιλέξτε από το μενού "Εργαλεία" και κάντε κλικ στο "Αναφορές ". Επιλέξτε το πλαίσιο δίπλα στην επιλογή " Microsoft Outlook 12.0 Object Library " και κάντε κλικ στο "OK". 2
Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα υπορουτίνα :
Private Sub getOutlookMail ( )
συνέχεια πατήστε " . Enter"
εικόνων 3
Πληκτρολογήστε τα παρακάτω για να ρυθμίσετε τις μεταβλητές σας :
Set outlookApp = CreateObject ( " Outlook.Application " )
Set MAPISpace = outlookApp.GetNamespace ( " MAPI " )
Set outlookFolder = MAPISpace.GetDefaultFolder ( olFolderInbox )
Η 4
Πληκτρολογήστε το παρακάτω για να εμφανίζει το Outlook :
outlookFolder.Display
5
Πληκτρολογήστε το παρακάτω, για να βρόχο μέσω όλων των στοιχείων ηλεκτρονικού ταχυδρομείου σας και να εμφανίσει το θέμα σε ένα πλαίσιο μηνύματος :
For Each myMail σε outlookFolder.Items
MsgBox myMail.Subject
Επόμενο myMail
Πατήστε το πλήκτρο " F5 " για να εκτελέσετε υπορουτίνα σας .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα