Improve company productivity with a Business Account.Sign Up
Administration of Active Directory does not have to be hard. Too often what should be a simple task is made more difficult than it needs to be.The solution? Hyena from SystemTools Software. With ease-of-use as well as powerful importing and bulk updating capabilities.
Dim olkApp, olkCalendar, olkEvent, objFSO, objFile, arrItem, strFilename
'Change the file name and path on the following line as needed.
strFilename = "C:\eeTesting\Outlook.hol"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFilename)
Set olkApp = CreateObject("Outlook.Application")
Set olkCalendar = olkApp.GetNamespace("MAPI").GetDefaultFolder(9)
Do While Not objFile.AtEndOfStream
arrItem = Split(objFile.ReadLine, ",")
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
Set objFile = Nothing
Set objFSO = Nothing
WScript.Echo "Holidays Added"
Open in new window
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.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Be seen. Boost your question’s priority for more expert views and faster solutions