Πώς να διαβάσετε e-mail σε Visual Basic

Γνωρίζοντας πώς να διαβάσετε e-mail σας από το Microsoft Office Outlook χρησιμοποιώντας το Microsoft Visual Basic μπορεί να σας βοηθήσει να αναπτύξουν ισχυρές εφαρμογές ηλεκτρονικού ταχυδρομείου . Το Outlook είναι ένα σύστημα διαχείρισης e-mail που περιλαμβάνεται στη σουίτα Microsoft Office . Visual Basic είναι μια αντικειμενοστραφής γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που συχνά προτιμάται από τους προγραμματιστές για την ευελιξία και την ευκολία χρήσης του . Σε μερικά βήματα μπορείτε να δημιουργήσετε μια εφαρμογή Visual Basic των Windows που θα διαβάσει τα εισερχόμενά σας στο Outlook και να εμφανίσετε το περιεχόμενο e-mail μέσα από το παράθυρο της κονσόλας . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic.NET
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Microsoft Visual Basic Express και κάντε κλικ στο "New Project ... " στο αριστερό παράθυρο της οθόνης . Κάντε διπλό κλικ στο " Εφαρμογή κονσόλας . " Πατήστε το πλήκτρο " Ctrl " και "A" και στη συνέχεια πατήστε "Διαγραφή " για να αφαιρέσετε τον κώδικα που υπάρχει . 2

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα σε λειτουργική μονάδα " Module1.vb " για να διαβάσετε τα email στοιχεία στο inbox σας Outlook :

Εισαγωγές Microsoft.Office.Interop

Module Module1

Sub Main ( )

Dim otkApp Όπως Outlook.Application = Νέα Outlook.Application

Dim otkMailItem = " IPM.Note "

Dim otkNameSpace Όπως Outlook.NameSpace = otkApp.GetNamespace ( " MAPI " )

Dim otkInboxFolder Όπως Outlook.MAPIFolder = otkNameSpace.GetDefaultFolder _

( Outlook.OlDefaultFolders.olFolderInbox )

Dim otkMailItems Όπως Outlook.Items = otkInboxFolder.Items

Dim otkMessage Όπως Outlook.MailItem

Dim iCntr As Integer

Για iCntr = 1 Για να otkMailItems.Count

Αν otkMailItems.Item ( iCntr ) . MessageClass = otkMailItem τότε

otkMessage = Αν

Επόμενο

otkApp = Τίποτα

otkNameSpace = Τίποτα

otkMailItems = Τίποτα

otkMessage = Τίποτα

End Sub

End Module
εικόνων 3

Πατήστε το " F5 " για να τρέξετε το πρόγραμμά σας .
Η
εικόνων