AppleScript to make All-Day Events?

Question

I'm new at this, so forgive the question if it's obvious. I routinely import a calendar using Outlook2Cal from a Windows machine to iCal 2.0.3 on my PowerBook. It works fine, but All-Day events in Outlook show up in iCal as starting at 12:00 AM the first day and ending 12:00 AM the next day.
The company that makes Outlook2Mac says that's a bug that they hope will be fixed eventually.
In the meantime, is there a way AppleScript could find all the entries that, say, start at 12:00 AM and automatically check off the "All-Day Event" button?

Answer 1

Hi Roger,
This is fairly straighforward in Applescript. You could try something like the script below. Depending on the number of events in the calendar it's possible this could take time. The script should let you know when it's done.
Just in case you don't like the result. Backup, just in case. In iCal go to File>Back up Database... and save your calendars.
--Copy blue text into Script Editor (Applications > Applescript > Script Editor) , press Run and follow prompts. If you are happy with the results you could save it as an Application.
tell application "iCal"
-- Select calendar
set myCal to first calendar whose title is (item 1 of (choose from list (title of (every calendar) as list) with prompt "Choose calendar"))
-- Loop through events
repeat with myEvt in events of myCal
-- Get start & end times of event
set {startTime, endTime} to {start date of myEvt, end date of myEvt}
-- Check start and end hours & mins
set hoursAndMins to {hours of startTime, minutes of startTime, hours of endTime, minutes of endTime}
-- See if start and end time are midnight, if so set to all day.
if hoursAndMins is equal to {0, 0, 0, 0} then set allday event of myEvt to true
end repeat
display dialog "Done all day events"
end tell
Best wishes
John