Avendo la conoscenza su come aprire Outlook e leggere le email utilizzando Visual Basic, consentono di creare facilmente applicazioni di posta elettronica. In VB, è possibile utilizzare lo spazio dei nomi "Interop" per l'interoperabilità tra l'app VB e la vista spazia sulla conca. Una volta stabilita la connessione, quindi è possibile utilizzare un ciclo come un "per... Loop"e scorrere tutti gli elementi di posta elettronica in una particolare cartella di Outlook. Con l'aiuto di questo spazio dei nomi è possibile creare la propria applicazione di posta elettronica facilmente usando VB.NET.

Istruzioni

1

Avviare Microsoft Visual Basic Express e fare clic su "Nuovo progetto..." nel riquadro sinistro dello schermo. Fare doppio clic su "Applicazione Console". Premere "Ctrl" e "A" quindi premere "Elimina" per rimuovere il codice corrente.

2

Fare clic sul menu "Progetto" e scegliere "Aggiungi riferimento". Fare clic sulla scheda ".NET" e fare doppio clic su "Interop."

3

Iniziare dichiarando lo spazio dei nomi seguente sopra "Moduel Module1:"

Le importazioni Microsoft.Office.Interop

4

Continuare creando le seguenti variabili di oggetto di Outlook:

Dim Otlk As Outlook.Application = New Outlook.Application

Dim OtlkItem = "IPM.Note"

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

Dim OtlkInbox As Outlook.MAPIFolder = OtlkNspace.GetDefaultFolder _

(Outlook.OlDefaultFolders.olFolderInbox)

Dim OtlkMlItms As Outlook.Items = OtlkInbox.Items

Dim OtlkMsg As Outlook.MailItem

Dim xCntr As Integer5

Copiare e incollare il codice seguente per creare un "per... Loop"e la visualizzazione di elementi di posta elettronica presente nella cartella"Posta in arrivo"di Outlook:

For xCntr = 1 To OtlkMlItms.Count

If OtlkMlItms.Item(xCntr).MessageClass = OtlkItem Then

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("______________________________")

End If

Next6

Rilascia le variabili oggetto dalla memoria:

Otlk = Nothing

OtlkNspace = Nothing

OtlkMlItms = Nothing

OtlkMsg = Nothing