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?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

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
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

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Outlook

From novice to tech pro — start learning today.