Outlook 2016 Calendar - Singapore

Dear Experts,

Is there a way by Group Policy to set all the calendars of Outlook 2016 to Singapore calendar?

I know we can add them individually emailing them a calendar file.

I also know that by opeing Outlook options -> Calendar Options -> Add Holidays to Calendar, we select Singapore and the holidays gets added.

But my client consists of 80 over users. So we are hoping either GPO or another alternative to deploy the Singapore holidays in one go.
LVL 1
Anonymous KHIT EngineerAsked:
Who is Participating?
 
Brian BEE Topic Advisor, Independant Technology ProfessionalCommented:
I'm not the great on VBS script, but it looks like that will work as well.

To save others going and checking, here is the code from the link mentioned above.
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

Open in new window

0
 
Brian BEE Topic Advisor, Independant Technology ProfessionalCommented:
Believe it or not it can't be done by policy. You can however use notepad to create a file in  the following format and save it with .hol extension like "holidays.hol"

[Section Name] [Number of Holidays]
Holiday Description, yyyy/mm/dd
Holiday Description, yyyy/mm/dd
Holiday Description, yyyy/mm/dd

You can distribute the file to all users with the instruction to double click it to add the holidays.
0
 
Anonymous KHIT EngineerAuthor Commented:
Hi! Brian B,

Thanks.

We have been googling non-stop until I really want to give up until I saw a website using a vbs script which I have no knowledge of how to configure and manipulate vbs file.

https://www.slipstick.com/outlook/calendar/outlooks-holiday-file/
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.