Hvordan lage et e-postprogram

September 3

Å vite hvordan du oppretter en e-postprogram kan spare deg for tid når du trenger å kontrollere e-post for brukerne. Den enkleste måten å opprette en e-postprogram er ved hjelp av Microsoft Office Outlook. Outlook er en post styringssystem som gir deg alle de verktøy som kreves for å administrere e-post. Du kan bruke Visual Basic.NET (VB.NET) for å opprette en e-postprogram ved å bruke Outlook Application objektet. VB.NET er et programmeringsspråk som brukes til å lage Windows-programmer som for eksempel e-postprogrammer.

Bruksanvisning

1 Start Microsoft Visual Basic Express, og klikk "New Project" på ruten til venstre på skjermen. Velg "Windows Forms Application". Klikk på "OK".

2 Dobbeltklikk på "Button" på "Toolbox" panelet for å legge til en ny knapp kontroll. Dobbeltklikk på "ListBox" for å legge til en ny listeboks kontroll. Dobbeltklikk på "Button1" for å åpne "Form1.vb" modul.

3 Kopier og lim inn følgende kode under "button1_click" for å lese e-post i "Innboks" -mappen fra Outlook og legge dataene til ListBox kontroll:

Dim otlkApp Som Outlook.Application = Ny Outlook.Application

Dim otkMailItem = "IPM.Note"

Dim olkNspace Som Outlook.NameSpace = otlkApp.GetNamespace ( "MAPI")

Dim otlkInbox Som Outlook.MAPIFolder = olkNspace.GetDefaultFolder _

(Outlook.OlDefaultFolders.olFolderInbox)

Dim otlkMItems Som Outlook.Items = otlkInbox.Items

Dim otlkMsg Som Outlook.MailItem

Dim yCntr As Integer

For yCntr = 1 Til otlkMItems.Count

Hvis otlkMItems.Item (yCntr) .MessageClass = otkMailItem Deretter

otlkMsg = otlkMItems.Item (yCntr)

Me.ListView1.Items.Add (yCntr)

Me.ListView1.Items.Add (otlkMsg.SenderName)

Me.ListView1.Items.Add (otlkMsg.Subject)

Me.ListView1.Items.Add (otlkMsg.ReceivedTime)

Me.ListView1.Items.Add (otlkMsg.Body)

Me.ListView1.Items.Add ( "______________________________")

Slutt om

neste

otlkApp = Ingenting

olkNspace = Nothing

otlkMItems = Nothing

otlkMsg = Nothing

4 Klikk på "Form1.vb [Design]" -fanen og dobbeltklikk på "Button2" for å åpne "Button2_Click" prosedyre. Skriv inn følgende under "Button2_Click" for å sende en e-post:

Dim otlkApp Som Outlook.Application = Ny Outlook.Application

Dim myOtlkMail As Outlook.MailItem

myOtlkMail = otlkApp.CreateItem (Outlook.OlItemType.olMailItem)

myOtlkMail.UnRead = True

myOtlkMail.To = "[email protected]"

myOtlkMail.Subject = "subject går her"

myOtlkMail.HTMLBody = True

myOtlkMail.Body = "Brødtekst går her"

myOtlkMail.Send ()

Redigere følgende linjer med kode, og skriv inn destinasjonen e-postadresse:

myOtlkMail.To = [email protected]

5 Trykk "F5" for å kjøre programmet, og klikk "Button1" å lese "Innboks" -mappen fra Outlook da. Klikk "Button2" for å sende en e-post.