使用Redemption库将约会同步到Outlook日历
以下是将默认日历设置为Outlook约会项目的Vb代码。
默认情况下,它从Outlook中选择默认日历。但我需要设置我自己的日历,其中包含我在Outlook中添加到约会项目的日历名称。
for i in $dir/*.log; do
if [[ ! -f "${i}.zip" ]]; then
zip $i
else
echo "$i has already been zipped"
fi
done
我尝试通过循环设置我的日历以将测试日历设置为objAppointmentRecord。
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 .
这里最后一行用我的TestCalendar设置objAppointmentRecord,但这种方法没有选择我的日历。
有没有办法直接选择日历到objAppointmentRecord或任何新方法请建议我。
我期待您的回复。
答案 0 :(得分:0)
首先,不要使用Redemption.MAPIFolder
对象 - 它已被弃用。创建RDOSession
对象的实例,并将其MAPIOBJECT
属性设置为Namespace.MAPIOBJECT
返回的值。
如果你有来自OOM的Outlook.MAPIFolder
对象,并且想要在兑换中打开它,请致电RDOSession.GetFolderFromID
或RDOSession.GetRDOObjectFromOutlookObject
。
答案 1 :(得分:0)
最后得到Redumption支持的回答,在Outlook中选择用户定义的日历进行同步
objAppointmentFolder = modMain.gobjMAPI.GetDefaultFolder(9).Folders.Item(“My Folder Name”)