Πώς να δημιουργήσετε μια εφαρμογή ηλεκτρονικού ταχυδρομείου

Γνωρίζοντας πώς να δημιουργήσετε μια εφαρμογή ηλεκτρονικού ταχυδρομείου μπορεί να σας εξοικονομήσει χρόνο , όταν θα πρέπει να ελέγχετε το email για τους χρήστες . Ο ευκολότερος τρόπος για να δημιουργήσετε μια εφαρμογή ηλεκτρονικού ταχυδρομείου είναι με τη χρήση του Microsoft Office Outlook . Το Outlook είναι ένα σύστημα διαχείρισης mail που σας παρέχει όλα τα εργαλεία που απαιτούνται για τη διαχείριση του ηλεκτρονικού ταχυδρομείου. Μπορείτε να χρησιμοποιήσετε το Visual Basic.NET ( VB.NET ) για να δημιουργήσετε μια εφαρμογή ηλεκτρονικού ταχυδρομείου, χρησιμοποιώντας το αντικείμενο εφαρμογής του Outlook . VB.NET είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιείται για τη δημιουργία εφαρμογών Windows, όπως τα προγράμματα ηλεκτρονικού ταχυδρομείου . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic Express
Microsoft Office
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic Express , και κάντε κλικ στο "New Project " για την αριστερό παράθυρο της οθόνης σας . Επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2

διπλό κλικ στο " κουμπί" για την " Toolbox" παράθυρο για να προσθέσετε ένα νέο κουμπί ελέγχου . Κάντε διπλό κλικ στο " πλαίσιο λίστας " για να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου λίστας . Κάντε διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb " .
Εικόνων 3

αντιγραφή και επικόλληση τον παρακάτω κωδικό στο πλαίσιο " Button1_Click " για να διαβάσετε e-mail στο φάκελο "Εισερχόμενα" του Outlook και να προσθέσετε τα δεδομένα στο στοιχείο ελέγχου πλαισίου λίστας :

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

Dim otkMailItem = " IPM.Note "

Dim olkNspace Όπως Outlook . χώρο ονομάτων = otlkApp.GetNamespace ( " MAPI " )

Dim otlkInbox Όπως Outlook.MAPIFolder = olkNspace.GetDefaultFolder _

( Outlook.OlDefaultFolders.olFolderInbox )

Dim otlkMItems Όπως Outlook.Items = otlkInbox.Items

Dim otlkMsg Όπως Outlook.MailItem

Dim yCntr As Integer

Για yCntr = 1 Για να otlkMItems.Count

Αν otlkMItems.Item ( yCntr ) . MessageClass = otkMailItem τότε

otlkMsg = Αν

Επόμενο

otlkApp = Τίποτα

olkNspace = Τίποτα

otlkMItems = Τίποτα

otlkMsg = Τίποτα

4

κάντε κλικ στο " Form1.vb [ Σχέδιο ] " καρτέλα και κάντε διπλό κλικ στο " Button2 " να κινήσει τη διαδικασία " Button2_Click " . Πληκτρολογήστε τα ακόλουθα στο " Button2_Click " για να στείλετε ένα e-mail :

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

Dim myOtlkMail Όπως Outlook.MailItem

myOtlkMail = otlkApp . CreateItem ( Outlook.OlItemType.olMailItem )

myOtlkMail.UnRead = True

myOtlkMail.To = " your.emailaddress @ xxxx.com "

myOtlkMail.Subject = " θέμα πηγαίνει εδώ "

myOtlkMail.HTMLBody = True

myOtlkMail.Body = " text Σώμα, πηγαίνει εδώ "

myOtlkMail.Send ( )

Επεξεργασία του ακόλουθες γραμμές κώδικα και πληκτρολογήστε τη διεύθυνση e-mail προορισμού :

myOtlkMail.To = your.emailaddress @ xxxx.com
5

Press " F5 " για να τρέξετε το πρόγραμμά σας , και στη συνέχεια κάντε κλικ στο κουμπί " Button1 " για να διαβάσετε το φάκελο "Εισερχόμενα" του Outlook . Κάντε κλικ στο " Button2 " για να στείλετε ένα email .
Η
εικόνων