BlueDevils' Distribute Outlook Holidays Script
Posted on 2008-10-31
I copied and pasted into notepad and made changes as you mentioned in your last post. However, when I ran the script I received the following error:
c:\outlook_holiday.vbs(12, 5) Microsoft Office Outlook: Type Mismatch: Unable to coerce parameter value. Outlook cannot translate your string.
I'm not a programmer but I looked at the script to see if I could see any problem but, of course, I wasn't. I've pasted in my entire script below. Any help would be very much appreciated.
Dim olkApp, olkCalendar, olkEvent, arrEvents, arrItem, varEvent
arrEvents = BuildEventList()
Set olkApp = GetObject(,"Outlook.Application")
If TypeName(olkApp) <> "Application" Then
Set olkApp = CreateObject("Outlook.Application")
Set olkCalendar = olkApp.GetNamespace("MAPI").GetDefaultFolder(9)
For Each varEvent in arrEvents
arrItem = Split(varEvent, ":")
Set olkEvent = olkApp.CreateItem(1)
olkEvent.Subject = arrItem(0)
olkEvent.Start = arrItem(1)
olkEvent.AllDayEvent = True
olkEvent.ReminderSet = False
Set olkEvent = Nothing
Set olkCalendar = Nothing
Set olkApp = Nothing
WScript.Echo "Events Added"
'Change 5 to the number of events in your list minus one. For example, if you have 10 events in your list, then the number would be 9.
'Add a line like the following for each event. Arrays start at 0 not 1. The events can be in any order. The format is Event:Date.
arrTemp(0) = "New Year's Day:/1/1/2009"
arrTemp(1) = "Presidents' Day:2/16/2009"
arrTemp(2) = "Memorial Day:5/25/2009"
arrTemp(3) = "Day before Independence Day:7/2/2009"
arrTemp(4) = "Independence Day:7/3/2009"
arrTemp(5) = "Labor Day:9/7/2009"
arrTemp(6) = "Thanksgiving Day:11/26/2009"
arrTemp(7) = "Day after Thanksgiving:11/27/2009"
arrTemp(8) = "Winter Holiday:12/25/2009"
arrTemp(9) = "Winter Holiday:12/26/2009"
arrTemp(10) = "New Years Eve:12/31/2009"
BuildEventList = arrTemp