Δημιουργήστε ένα αντικείμενο email . Το αντικείμενο μήνυμα ηλεκτρονικού ταχυδρομείου περιέχει όλες τις ιδιότητες και τις λειτουργίες που χρησιμοποιούνται για να διαβάσετε e-mail . Ο παρακάτω κώδικας δημιουργεί το αντικείμενο :
set email = CreateObject ( " EasyMail.POP3 " ) 2
Πληκτρολογήστε το όνομα του διακομιστή ηλεκτρονικού ταχυδρομείου , το όνομα χρήστη και τον κωδικό πρόσβασης . Αυτά παρέχονται από τον πάροχο φιλοξενίας ηλεκτρονικού ταχυδρομείου . Αν είστε σε ένα εσωτερικό δίκτυο , οι πληροφορίες παρέχονται από το διαχειριστή του δικτύου . Ο ακόλουθος κώδικας δείχνει πώς μπορείτε να εισάγετε τις ιδιότητες για το email
Η
3 Ανοίξτε το e-mail και λήψη των μηνυμάτων . Τα μηνύματα ηλεκτρονικού ταχυδρομείου που φυλάσσονται σε ένα αντικείμενο πίνακα . Ο κώδικας που ακολουθεί ανοίγει τη σύνδεση και αποθηκεύει το πρώτο μήνυμα σε μία μεταβλητή VB :
email.Connectmessage = email.DownloadSingleMessage ( 1 )
Η 4
Προβολή μηνύματος στον χρήστη . Σε αυτό το παράδειγμα , το μήνυμα εμφανίζεται σε ένα πλαίσιο μηνύματος . Αυτό σας βοηθά να δοκιμάσετε τον κώδικα για να διασφαλιστεί το μήνυμα είναι πλήρως κατεβάσει . Ο παρακάτω κώδικας εμφανίζει το μήνυμα :
μήνυμα MsgBox
5
Αποσύνδεση από το διακομιστή ηλεκτρονικού ταχυδρομείου . Αποσύνδεση απελευθερώνει πόρους και κλείνει τη σύνδεση με το διακομιστή . Ο παρακάτω κώδικας κλείνει τη σύνδεση σας :
email.Disconnect
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα