Const olFolderCalendar = 9 Const olAppointmentItem = 1 Const olOutOfOffice = 3 CRLF = chr(13)&chr(10) 'Wscript.echo "Importing 2017 Company Holidays."+ CRLF + CRLF + "Press OK to Continue." Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Set objCalendar = objNamespace.GetDefaultFolder(olFolderCalendar) Set objDictionary = CreateObject("Scripting.Dictionary") objDictionary.Add "August 1, 2017", "Company Holiday - Holiday Name" objDictionary.Add "August 21, 2017", "Company Holiday - Holiday Name" objDictionary.Add "August 18, 2017", "Company Holiday - Holiday Name" objDictionary.Add "August 26, 2017", "Company Holiday - Holiday Name" objDictionary.Add "September 1, 2017", "Company Holiday - Holiday Name" objDictionary.Add "November 11, 2017", "Company Holiday - Veterans' Day" objDictionary.Add "November 27, 2017", "Company Holiday - Thanksgiving Day" objDictionary.Add "November 28, 2017", "Company Holiday - Friday After Thanksgiving" objDictionary.Add "December 25, 2017", "Company Holiday - Christmas Day" objDictionary.Add "December 26, 2017", "Company Holiday - Day after Christmas" colKeys = objDictionary.Keys For Each strKey in colKeys dtmHolidayDate = strKey strHolidayName = objDictionary.Item(strKey) Set objHoliday = objOutlook.CreateItem(olAppointmentItem) With objHoliday .Subject = strHolidayName .Start = dtmHolidayDate .End = dtmHolidayDate .Categories = "Company Holidays" .AllDayEvent = True .ReminderSet = False .BusyStatus = olOutOfOffice .Save End With Next Set objOutlook = Nothing Wscript.echo "Completed Importing 2017 Company Holidays."+ CRLF + CRLF + "Press OK to End." Wscript.quit