Sapere come creare un'applicazione di posta elettronica consente di risparmiare tempo quando si ha bisogno di controllare e-mail per gli utenti. Il modo più semplice per creare un'applicazione di posta elettronica è quello di utilizzare Microsoft Office Outlook. Outlook è un sistema di gestione elettronica che fornisce tutti gli strumenti necessari per gestire e-mail. È possibile utilizzare Visual Basic.NET (VB.NET) per creare un'applicazione di posta elettronica utilizzando l'oggetto Application di Outlook. VB.NET è un linguaggio di programmazione utilizzato per creare applicazioni Windows come i programmi di posta elettronica.

istruzione

1 Avviare Microsoft Visual Basic Express e fare clic su "New Project" nel riquadro a sinistra dello schermo. Selezionare "Applicazione Windows Form." Fai clic su "OK".

2 Fare doppio clic su "Button" nel riquadro "Toolbox" per aggiungere un nuovo controllo pulsante. Fare doppio clic su "ListBox" per aggiungere un nuovo controllo Casella di riepilogo. Fare doppio clic su "Button1" per aprire il modulo "Form1.vb".

3 Copiare e incollare il seguente codice sotto "Button1_Click" per leggere e-mail nella cartella "Posta in arrivo" di Outlook e aggiungere i dati al controllo ListBox:

Dim otlkApp Come Outlook.Application = Nuovo Outlook.Application

Dim otkMailItem = "IPM.Note"

Dim olkNspace Come Outlook.NameSpace = otlkApp.GetNamespace ( "MAPI")

Dim otlkInbox Come Outlook.MAPIFolder = olkNspace.GetDefaultFolder _

(Outlook.OlDefaultFolders.olFolderInbox)

otlkMItems fiochi come Outlook.Items = otlkInbox.Items

Dim otlkMsg Come Outlook.MailItem

Dim yCntr As Integer

Per yCntr = 1 Per otlkMItems.Count

Se otlkMItems.Item (yCntr) .MessageClass = otkMailItem Poi

otlkMsg = otlkMItems.Item (yCntr)

Me.ListView1.Items.Add (yCntr)

Me.ListView1.Items.Add (yCntr)

Me.ListView1.Items.Add (otlkMsg.SenderName)

Me.ListView1.Items.Add (otlkMsg.Subject)

Me.ListView1.Items.Add (otlkMsg.ReceivedTime)

Me.ListView1.Items.Add (otlkMsg.Body)

Me.ListView1.Items.Add ( "______________________________")

Finisci se

Il prossimo

otlkApp = Nothing

olkNspace = Nothing

otlkMItems = Nothing

otlkMsg = Nothing

4 Fare clic sul "Form1.vb [Design] scheda" e fare doppio clic su "Button2" per aprire la procedura "Button2_Click". Digitare il seguente sotto "Button2_Click" per inviare una e-mail:

Dim otlkApp Come Outlook.Application = Nuovo Outlook.Application

Dim myOtlkMail As Outlook.MailItem

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

myOtlkMail.UnRead = True

myOtlkMail.To = "[email protected]"

myOtlkMail.Subject = "soggetto va qui"

myOtlkMail.HTMLBody = True

myOtlkMail.Body = "Corpo del testo va qui"

myOtlkMail.Send ()

Modificare le seguenti righe di codice e digitare l'indirizzo e-mail di destinazione:

myOtlkMail.To = [email protected]

5 Premere il tasto "F5" per eseguire il programma, e quindi fare clic su "Button1" per leggere la cartella "Posta in arrivo" di Outlook. Fai clic su "Button2" per inviare una e-mail.