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 .
Programmazione © www.354353.com