VBscript Outlook表单在特定日历中创建会议 [英] VBscript outlook form creating meeting in specific calendar
本文介绍了VBscript Outlook表单在特定日历中创建会议的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
这几天来我一直在努力.我的VBscript代码可以正常工作,并将在Outlook的默认日历中创建会议.我似乎无法弄清的部分是如何在名为测试"的自定义日历中进行会议.该日历在我的日历"下列出.有什么建议吗?
I've been working on this the past few days. My VBscript code works and will create a meeting in the default calendar in Outlook. The part I can't seem to figure out is how to have the meeting made in a custom calendar named "Test". This calendar is listed under "My Calendars". Any advice?
Sub commandbutton1_Click()
If CommandButton1 = False Then
Const olFolderCalendar = 9
Const olAppointmentItem = 1
Const olOutOfOffice = 3
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
' bottom line original: Set objCalendar = objNamespace.GetDefaultFolder(olFolderCalendar)
Set objCalendar = objNamespace.GetDefaultFolder(olFolderCalendar) '.Parent.Items("Test")
Set objApptItems = objCalendar.Items
objApptItems.IncludeRecurrences = True
objApptItems.Sort "[Start]"
Set objHoliday = objOutlook.CreateItem(olAppointmentItem)
'creating day off appointment
objHoliday.Subject = "Boxing Day"
objHoliday.Start = Item.UserProperties("DateText")
objHoliday.End = Item.UserProperties("EndDate")
objHoliday.AllDayEvent = True
objHoliday.ReminderSet = False
objHoliday.BusyStatus = olOutOfOffice
objHoliday.Save
'testing confirmation email
Set objMail = objOutlook.CreateItem(o)
'Item.To
objMail.to = Item.To 'UserProperties("From")
objMail.Subject = "Confirmation: Requested Day(s) Off Approved"
objMail.Body = "Congratulations, your requested day(s) off have been Approved!"
objMail.Send
'closes email after hitting button
'For i = objOutlook.Inspectors.count To 1 Step -1
' objOutlook.Inspectors.Item(i).Close True
' Next
End If
End Sub
推荐答案
项目会添加到非默认日历中.
Items are added to non-default calendars.
Sub Add_To_NonDefault_Folder()
Dim objNameSpace As NameSpace
Dim objCalendar As Folder
Dim objHoliday As AppointmentItem
Set objNameSpace = GetNamespace("MAPI")
Set objCalendar = objNameSpace.GetDefaultFolder(olFolderCalendar).Folders("Test")
Set objApptItems = objCalendar.items
Set objHoliday = objCalendar.items.Add(olAppointmentItem)
objHoliday.Subject = "Appt test"
objHoliday.SAVE
End Sub
这篇关于VBscript Outlook表单在特定日历中创建会议的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文