Sapere come creare un'applicazione di posta elettronica consente di risparmiare tempo quando è necessario controllare la posta elettronica 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 della posta 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 . Cose che ti serviranno
Microsoft Visual Basic Express
Microsoft Office
Mostra più istruzioni
1

Avviare Microsoft Visual Basic Express e fare clic su "Nuovo progetto" sulla riquadro sinistro dello schermo. Selezionare " Applicazione Windows Form ". Fare clic su "OK".

2 Fare doppio clic su "Pulsante" nel riquadro " Casella degli strumenti " 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

Copia e incolla il seguente codice in " 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 = New Outlook.Application

Dim otkMailItem = " IPM.note "

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

Dim otlkInbox Come Outlook.MAPIFolder = olkNspace.GetDefaultFolder _

( Outlook.OlDefaultFolders.olFolderInbox )

Dim otlkMItems As Outlook.Items = otlkInbox.Items

Dim otlkMsg Come Outlook.MailItem

Dim yCntr As Integer

yCntr = 1 Per otlkMItems.Count

otlkMItems.Item ( yCntr ) . MessageClass = otkMailItem Poi

otlkMsg = Se

Avanti

otlkApp = Nothing

olkNspace = Nothing

otlkMItems = Nothing

otlkMsg = Nothing
4

Fare clic su " Form1.vb [ design] " scheda e fare doppio clic su " Button2 " per aprire la procedura " Button2_Click " . Digitare quanto segue in " Button2_Click " per inviare una e-mail :

Dim otlkApp Come Outlook.Application = New Outlook.Application

Dim myOtlkMail Come Outlook.MailItem

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

myOtlkMail.UnRead = True

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

myOtlkMail.Subject = " soggetto va qui "

myOtlkMail.HTMLBody = True

myOtlkMail.Body =" corpo del testo va qui "

myOtlkMail.Send ( ) per

Modificare il seguenti righe di codice e digitare l'indirizzo email di destinazione :

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

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

• Come trovare i numeri di Face ID per il tuo Microsoft Office 97 Barre degli strumenti 
• Come confrontare gli attributi dei file in VBS