Jak vytvořit kalendářový program pro Vb.Net

Krok 1

Zapněte počítač a spusťte aplikaci Microsoft Visual Studio.Net. Klikněte na nabídku "Soubor", poté na "Nový" a potom klikněte na "Projekt".

Krok 2

V nabídce Typy projektů a v části Šablony klepněte na položku Projekty jazyka a potom na položku Aplikační konzole. Tím vytvoříte výchozí šablonu, která se nazývá "Module1.vb".

Krok 3

Přidejte odkaz na "Knihovnu objektů aplikace Microsoft Outlook 11.0", abyste si pamatovali svůj projekt v případě, že jej nedokončíte. Vyberte nabídku "Projekt" a klikněte na odkaz "Přidat odkaz".

Krok 4

Přejděte na kartu "COM", klikněte na "Knihovna objektů aplikace Microsoft Outlook 11.02 a potom na položku" Vybrat. "Klepnutím na tlačítko OK v dialogovém okně" Přidat odkazy "potvrďte výběr. požádejte, abyste vygenerovali obálky pro vybranou knihovnu, klikněte na tlačítko "Přijmout".

Krok 5

Přesuňte kurzor myši na okno "Kód". Odstraňte stávající kód. Zkopírujte a vložte kód nalezený v kroku 6 a vložte jej do okna "Kód".

Krok 6

mports System.Reflection importuje Outlook = Microsoft.Office.Interop.Outlook

Modul modulu1

Sub Main () 'Vytvoření aplikace Outlook. Dim oApp Jako Outlook.Application = Nový Outlook.Application ()

'Vytvořte nový AppointmentItem. Dim oAppt jako Outlook.AppointmentItem = oApp.CreateItem (Outlook.OlItemType.olAppointmentItem)

"Nastavte některé společné vlastnosti. oAppt.Subject = "Vytvořeno pomocí OOM ve VB .NET" neboAppt.Body = "Hello World" neboApt.Location = "Pokoj 1201"

oAppt.Start = Convert.ToDateTime ("05/31/2004 9:00:00 AM") neboAppt.End = Convert.ToDateTime ("05/31/2004 1:00:00 PM") neboAppt.ReminderSet = True oAppt .ReminderMinutesBeforeStart = 5 oAppt.BusyStatus = Outlook.OlBusyStatus.olBusy oAppt.IsOnlineMeeting = False

'Uložit do kalendáře. oAppt.Save ()

"Vyčistěte. oApp = nic oAppt = nic

Koncový modul ukončení