Hvordan lese e-post i Visual Basic

Hvordan lese e-post i Visual Basic


Å vite hvordan du skal lese din e-post fra Microsoft Office Outlook med Microsoft Visual Basic kan hjelpe deg å utvikle kraftige e-postprogrammer. Outlook er en e-styringssystem som er inkludert i Microsoft Office-pakken. Visual Basic er et objektorientert programmeringsspråk som ofte foretrukket av programmerere for sin fleksibilitet og brukervennlighet. I noen få trinn kan du opprette en Visual Basic Windows-program som vil lese din Outlook innboksen og vise e-postinnhold gjennom konsollen vinduet.

Bruksanvisning

1 Åpne Microsoft Visual Basic Express og klikk "New Project ..." i den venstre ruten på skjermen. Dobbeltklikk på "Console Application". Trykk "Ctrl" og "A" og trykk "Slett" for å fjerne koden som er der.

2 Kopier og lim inn følgende kode til din "Module1.vb" modulen for å lese e-poster i Outlook innboksen:

importen Microsoft.Office.Interop

modul module1

Sub Main()

Dim otkApp Som Outlook.Application = Ny Outlook.Application

Dim otkMailItem = "IPM.Note"

Dim otkNameSpace Som Outlook.NameSpace = otkApp.GetNamespace ( "MAPI")

Dim otkInboxFolder Som Outlook.MAPIFolder = otkNameSpace.GetDefaultFolder _

(Outlook.OlDefaultFolders.olFolderInbox)

Dim otkMailItems Som Outlook.Items = otkInboxFolder.Items

Dim otkMessage Som Outlook.MailItem

Dim iCntr As Integer

For iCntr = 1 Til otkMailItems.Count

Hvis otkMailItems.Item (iCntr) .MessageClass = otkMailItem Deretter

otkMessage = otkMailItems.Item (iCntr)

Console.WriteLine (iCntr)

Console.WriteLine (otkMessage.SenderName)

Console.WriteLine (otkMessage.Subject)

Console.WriteLine (otkMessage.ReceivedTime)

Console.WriteLine (otkMessage.Body)

Console.WriteLine ( "______________________________")

Slutt om

neste

otkApp = Ingenting

otkNameSpace = Nothing

otkMailItems = Nothing

otkMessage = Nothing

End Sub

End Module

3 Trykk "F5" for å kjøre programmet.