How to view Outlook calendar appointments using VB.NET

Question

I'm writing an application that displays a calendar; when you click a date on the calendar, it should display a window listing the appointments for that day.

How can this be done in VB.Net? I can find code to add appointments to a calendar, but not to do this.

Does this answer your question? [.NET: Get all Outlook calendar items](https://stackoverflow.com/questions/90899/net-get-all-outlook-calendar-items) — Heretic Monkey, Sep 08 '21 at 15:34

Mike Calvert · Answer 1 · 2012-05-08T22:05:10.543

Here is a snippet of code using the Outlook Interop API.

This piece of code reaches out to the application and fetches all calendar items. If you wish to restrict based on a date, you can call the clfFolder.Items.Restrict method and pass in a restriction filter. Please note, I call the clear recurrence items in this method to formalize entries as opposed to listing a single item with recurrence.

Dim appOutlook As Outlook.Application = Me.OutlookFormRegion.Application
Dim mpnNamespace As Outlook.NameSpace = appOutlook.GetNamespace("MAPI")
Dim clfFolder As Outlook.Folder = _ 
    mpnNamespace.GetDefaultFolder(OlDefaultFolders.olFolderCalendar)
Dim itmItems As Outlook.Items
Dim oaiAppointmentItem As Outlook.AppointmentItem
clfFolder.Items.IncludeRecurrences = False
For Each oaiAppointmentItem In clfFolder.Items
    oaiAppointmentItem.ClearRecurrencePattern()
Next

Dim appOutlook As Outlook.Application = Outlook.FormRegion.Application gives me "Reference to a non-shared member requires an object reference." — Pickle, May 09 '12 at 20:04

score 0 · Answer 2 · edited Apr 12 '13 at 08:36

I used this to find the data. not sure if will help

Try

        Dim olApp As Outlook.Application
        olApp = CreateObject("Outlook.Application")
        Dim mpnNamespace As Outlook.NameSpace = olApp.GetNamespace("MAPI")
        Dim oCalendar As Outlook.MAPIFolder = mpnNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
        Dim oItems As Outlook.Items = oCalendar.Items
        oItems.Sort("Start")
        oItems.IncludeRecurrences = True
        Dim oAppt As Outlook.AppointmentItem = oItems.Find("[Subject] = 'Upgrade/Issue reported via eData - Ref:2'")
        oAppt.Subject = "Updated"
        oAppt.Save()
        olApp = Nothing
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try

How to view Outlook calendar appointments using VB.NET

2 Answers2