Hvordan Åpne Outlook 2007 med Visual Basic

Hvordan Åpne Outlook 2007 med Visual Basic


Å ha kunnskap om hvordan du åpner Outlook og lese e-post ved hjelp av Visual Basic kan hjelpe deg med å opprette e-postprogrammer lett. I VB, kan du bruke "Microsoft.Office.Interop.Outlook" namespace for interoperabilitet mellom VB app og Outloook. Når tilkoblingen er opprettet så kan du bruke en løkke som en "For ... Loop" og iterere gjennom alle e-poster i en bestemt Outlook-mappe. Ved hjelp av dette navne kan du bygge din egen e-programmet enkelt å bruke VB.NET.

Bruksanvisning

1 Start Microsoft Visual Basic Express og klikk "New Project ..." på ruten til venstre på skjermen. Dobbeltklikk på "Console Application". Trykk "Ctrl" og "A" trykk "Slett" for å fjerne gjeldende kode.

2 Klikk på "Project" -menyen og klikk "Add Reference". Klikk på ".NET" -fanen og dobbeltklikk på "Microsoft.Office.Interop.Outlook."

3 Start med å erklære følgende navne ovenfor "Moduel module1:"

importen Microsoft.Office.Interop

4 Fortsett ved å opprette følgende Outlook objektvariabler:

Dim Otlk As Outlook.Application = New Outlook.Application

Dim OtlkItem = "IPM.Note"

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

Dim OtlkInbox Som Outlook.MAPIFolder = OtlkNspace.GetDefaultFolder _

(Outlook.OlDefaultFolders.olFolderInbox)

Dim OtlkMlItms Som Outlook.Items = OtlkInbox.Items

Dim OtlkMsg Som Outlook.MailItem

Dim xCntr As Integer

5 Kopier og lim inn følgende kode for å lage en "For ... Loop" og vise som finnes i "Innboks" -mappen fra Outlook postelementer:

For xCntr = 1 To OtlkMlItms.Count

Hvis OtlkMlItms.Item (xCntr) .MessageClass = OtlkItem Deretter

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

Slutt om

neste

6 Slipp objekt variabler fra minnet:

Otlk = Nothing

OtlkNspace = Nothing

OtlkMlItms = Nothing

OtlkMsg = Nothing