如何 Select 我自己的 OutLook Calender 而不是默认日历到 Redemption loader appointmentitem

Question

我正在使用 Redemption 库将约会同步到 Outlook 日历

下面是 Vb 将默认日历设置为 Outlook 约会项目的代码。

默认情况下，它是 selecting 来自 Outlook 的默认日历。但是我需要使用我在 Outlook 中添加到约会项目的日历名称来设置我自己的日历。

Dim objAppointmentRecord As Object 'Outlook.AppointmentItem

 objAppointmentRecord = Redemption.RedemptionLoader.new_SafeAppointmentItem

 Dim objAppointmentFolder As Object 'Outlook.MAPIFolder

 objAppointmentFolder = Redemption.RedemptionLoader.new_MAPIFolder

 objAppointmentFolder = modMain.gobjMAPI.GetDefaultFolder(9)

 objAppointmentRecord = objAppointmentFolder.Items.Add ' In this line it is setting default calendar .

我试图通过循环设置我的日历以将测试日历设置为 objAppointmentRecord 。

        Dim objNavGroup
        Dim objNavFolder
        Dim objNavMod
        Dim objSelectedCal = objAppointmentFolder.Items
        objNavMod = objAppointmentFolder.GetExplorer.NavigationPane.Modules.GetNavigationModule(1)
        For Each objNavGroup In objNavMod.NavigationGroups
            For Each objNavFolder In objNavGroup.NavigationFolders
                If objNavFolder.DisplayName = "TestCalendar" Then
                    objSelectedCal = objNavFolder
                    GoTo ExitFromCalLoop
                End If
            Next
        Next
ExitFromCalLoop:
 objAppointmentRecord = Redemption.RedemptionLoader.new_MAPIFolder.Items.Add(objSelectedCal)

在最后一行中使用我的 TestCalendar 设置 objAppointmentRecord 但这种方法没有 select 我的日历。

有什么方法可以直接select objAppointmentRecord 的日历或者任何新的方法请给我建议。

期待您的回复。

Answer 1

首先，不要使用 Redemption.MAPIFolder 对象 - 它已被弃用。创建 RDOSession 对象的实例并将其 MAPIOBJECT 属性设置为 Namespace.MAPIOBJECT.

返回的值

如果您有来自 OOM 的 Outlook.MAPIFolder 对象并且您想在 Redemption 中打开它，请调用 RDOSession.GetFolderFromID 或 RDOSession.GetRDOObjectFromOutlookObject。

Answer 2

终于从 Redumption 支持中得到了答复 select Outlook 中要同步的用户定义日历

objAppointmentFolder = modMain.gobjMAPI.GetDefaultFolder(9).Folders.Item(“My Folder Name”)

如何 Select 我自己的 OutLook Calender 而不是默认日历到 Redemption loader appointmentitem

How to Select my own OutLook Calender instead of default calendar to Redemption loader appointmentitem

vb.net

outlook

calendar

outlook-redemption