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.