Ved at lave en kalender kontrol ansøgning om Visual Basic , kan du få mere fleksibilitet i , hvordan kalenderen fungerer. Kalenderen vil have udseendet og funktionaliteten af ​​en typisk Outlook-kalender , men tilpasset til dine egne specifikationer . Ud over at oprette påmindelser og planlægning af aftaler Du kan også importere og eksportere ulæste beskeder fra din Outlook indbakke. Jo mere erfaren du er ved at bruge og skrive kode , jo mere kan du ændre programmet med yderligere faner og oplysninger , der opfylder dine behov. Hvad du har brug
Computer
Microsoft Visual Basic 2003
Microsoft Outlook
Vis Flere Instruktioner
1

Tænd computeren og start Microsoft Visual Studio. NET . Klik på menuen "Filer" , klik på "Ny ", og klik derefter på "Projekt ".
2

Vælg og klik på " Visual Basic projekter" under " Projekt Typer ", og klik derefter på "Console ansøgning "under" Skabeloner ". Dette vil oprette en standard skabelon, som vil blive navngivet " Module1.vb ".
3

Tilføj en henvisning til " Microsoft Outlook 11.0 Object Library ", så du husker dit projekt , hvis du ikke kan fuldføre den i et møde. Vælg " Projekt "-menuen og klikke på " Tilføj kommissorium. "
4

Scroll til "COM " fanen , klik på "Microsoft Outlook 11.0 Object Library " og derefter klikke på "Vælg ". Klik på "OK "i" Add Referencer "dialogboksen for at acceptere dine valg. Hvis du bliver bedt om at generere pakkemaskiner til det bibliotek, du valgte , klik på " Ja".
5

Flyt musen til " Code" vinduet. Slet eksisterende koder. Kopier og indsæt koden i trin 6 og indsætte den i "Code " vinduet.
6

Import System.ReflectionImports Outlook = Microsoft.Office.Interop.Outlook

Modul Module1 < br >

Sub Main ( ) 'Opret en Outlook ansøgning. Dim oApp Som Outlook.Application = Ny Outlook.Application ()

' Opret et nyt AppointmentItem . Dim oAppt Da Outlook.AppointmentItem = oApp.CreateItem ( Outlook.OlItemType.olAppointmentItem )

' Sæt nogle fælles egenskaber. oAppt.Subject = " Skabt ved hjælp af OOM i VB. NET " oAppt.Body = "Hello World" oAppt.Location = " Room 1201 "

oAppt.Start = Convert.ToDateTime ( " 05 /31/2004 09:00:00 " ) oAppt.End = Convert.ToDateTime ( " 2004/05/31 01:00:00 " ) oAppt.ReminderSet = Sand oAppt.ReminderMinutesBeforeStart = 5 oAppt.BusyStatus = Outlook. OlBusyStatus.olBusy oAppt.IsOnlineMeeting = False

"Gem i Kalender. oAppt.Save ()

' Ryd op . oApp = Nothing oAppt = Nothing

End SubEnd Module
7

Foretag eventuelle ændringer af koden til at gøre det arbejde for din situation, hvis du er dygtig til VB.net kode skriftligt.
8

Press F5 på tastaturet for at opbygge , installere og køre Vb.Net kalenderprogram .