Avere la conoscenza su come aprire Outlook e leggere le email utilizzando Visual Basic consente di creare facilmente applicazioni di posta elettronica. In VB, è possibile utilizzare lo spazio dei nomi "Microsoft.Office.Interop.Outlook" per l'interoperabilità tra la vostra applicazione VB e Outloook. Una volta stabilita la connessione, è possibile utilizzare un ciclo, come un "ciclo FOR ..." e scorrere tutti gli elementi di posta elettronica in una particolare cartella di Outlook. Con l'aiuto di questo spazio dei nomi è possibile costruire la propria applicazione di posta elettronica facilmente usando VB.NET.

istruzione

1 Avviare Microsoft Visual Basic Express e fare clic su "Nuovo progetto ..." nel riquadro a sinistra dello schermo. Fare doppio clic su "Applicazione console." Premere il tasto "Ctrl" e "A", quindi premere "Elimina" per rimuovere il codice corrente.

2 Fare clic sul menu "Progetto" e cliccare su "Add Reference". Fare clic sulla scheda ".NET" e fare doppio clic su "Microsoft.Office.Interop.Outlook."

3 Inizia dichiarando il seguente spazio sopra "moduel Module1:"

Le importazioni Microsoft.Office.Interop

4 Continuare creando le seguenti variabili oggetto di Outlook:

Dim Otlk As Outlook.Application = New Outlook.Application

Dim OtlkItem = "IPM.Note"

Dim OtlkNspace Come Outlook.NameSpace = Otlk.GetNamespace ( "MAPI")

Dim OtlkInbox Come Outlook.MAPIFolder = OtlkNspace.GetDefaultFolder _

(Outlook.OlDefaultFolders.olFolderInbox)

OtlkMlItms fiochi come Outlook.Items = OtlkInbox.Items

Dim OtlkMsg Come Outlook.MailItem

Dim xCntr As Integer

5 Copiare e incollare il seguente codice per creare un "ciclo FOR ..." e visualizzare gli elementi di posta elettronica trovati nella cartella "Posta in arrivo" di Outlook:

For xCntr = 1 To OtlkMlItms.Count

Se OtlkMlItms.Item (xCntr) .MessageClass = OtlkItem Poi

OtlkMsg = OtlkMlItms.Item (xCntr)

Console.WriteLine (xCntr)

Console.WriteLine (OtlkMsg.SenderName)

Console.WriteLine (OtlkMsg.Subject)

Console.WriteLine (OtlkMsg.ReceivedTime)

Console.WriteLine (OtlkMsg.Body)

Console.WriteLine ( "______________________________")

Finisci se

Il prossimo

6 Rilasciare le variabili oggetto dalla memoria:

Otlk = Nothing

OtlkNspace = Nothing

OtlkMlItms = Nothing

OtlkMsg = Nothing