如何使用 VB.NET 查看 Outlook 日历约会答案

【问题标题】：How to view Outlook calendar appointments using VB.NET如何使用 VB.NET 查看 Outlook 日历约会
【发布时间】：2012-05-14 08:32:37
【问题描述】：

我正在编写一个显示日历的应用程序；当您单击日历上的某个日期时，它应该会显示一个窗口，其中列出了当天的约会。

如何在 VB.Net 中做到这一点？我可以找到将约会添加到日历的代码，但不能这样做。

【问题讨论】：

您只是想阅读 Outlook 日历项目吗？
这能回答你的问题吗？ .NET: Get all Outlook calendar items

标签： vb.net outlook

【解决方案1】：

我用它来查找数据。不确定是否有帮助

试试

        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

【讨论】：

【解决方案2】：

这是一个使用 Outlook Interop API 的代码。

这段代码到达应用程序并获取所有日历项。如果您希望基于日期进行限制，可以调用 clfFolder.Items.Restrict 方法并传入限制过滤器。请注意，我在此方法中调用明确的重复项来形式化条目，而不是列出具有重复项的单个项目。

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 给我“对非共享成员的引用需要对象引用。”