Sådan læses Email i Visual Basic

April 5

Sådan læses Email i Visual Basic


At vide, hvordan at læse din e-mail fra Microsoft Office Outlook ved hjælp af Microsoft Visual Basic kan hjælpe dig med at udvikle stærke e-mail-programmer. Outlook er en e-mail-system, der er inkluderet i Microsoft Office-pakken. Visual Basic er et objekt-orienteret computer programmeringssprog, der foretrækkes ofte af programmører for sin fleksibilitet og brugervenlighed. I et par trin, du kan oprette en Visual Basic Windows-program, der vil læse din Outlook-indbakke og display e-mail-indhold gennem konsollen vinduet.

Instruktioner

Open Microsoft Visual Basic Express and click "New Project..." in the left pane of the screen. 1 Åbn Microsoft Visual Basic Express og klik på "Nyt projekt ..." i venstre rude på skærmen. Dobbeltklik på "Console Application." Tryk på "Ctrl" og "A" og tryk derefter på "Slet" for at fjerne den kode, der er der.

Copy and paste the following code to your "Module1.vb" module to read the email items in your Outlook inbox: Imports Microsoft.Office.Interop Module Module 1 Sub Main() Dim otkApp As Outlook.Application = New Outlook.Application Dim otkMailItem = "IPM.Note" Dim otkNameSpace As Outlook.NameSpace = otkApp.GetNamespace("MAPI") Dim otkInboxFolder As Outlook.MAPIFolder = otkNameSpace.GetDefaultFolder _ (Outlook.OlDefaultFolders.olFolderInbox) Dim otkMailItems As Outlook.Items = otkInboxFolder.Items Dim otkMessage As Outlook.MailItem Dim iCntr As Integer For iCntr = 1 To otkMailItems.Count If otkMailItems.Item(iCntr).MessageClass = otkMailItem Then 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("______________________________") End If Next otkApp = Nothing otkNameSpace = Nothing otkMailItems = Nothing otkMessage = Nothing End Sub End Module 2 Kopier og indsæt følgende kode til din "Module1.vb" modul til at læse e-mail poster i din Outlook-indbakke: Import Microsoft.Office.Interop Modul Modul 1 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 Så 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 ( "______________________________") End If Næste otkApp = Nothing otkNameSpace = Nothing otkMailItems = Nothing otkMessage = Nothing End sub End Module

Press "F5" to run your program. 3 Tryk på "F5" for at køre dit program.


relaterede artikler