Outlook, convert meetings to appointments
Dashrender last edited by Dashrender
In my ongoing saga to fix my calendar issues I've discovered one user who has 12,000 or so meetings with no recipients. I looks like a throwback problem from my Lotus Notes days.
Unfortunately the user wants to keep everything (even worse, they try to sync it all to their phone - don't ask).
I found this link with some VB script on it, but I've never really scripted before and would like a hand in how to get started.
Additionally, I need the script to only change meetings that have no recipients, not all meetings, into appointments.
OK, I found how to get in to the dev mode in Outlook, and pasted the code I found there.
It seemed to run OK against a few items I choose while in my calendar looking at list mode (of course that was once I figured out how to run the code (it's now a macro - uh.. ok).
But now it won't run on the next set of items I selected.
Completely exiting and relaunching Outlook solved the won't run problem. Now to edit the script to skip meetings that have other attendees in them.
OK this was easier than expected.
I wrapped an IF statement around the call to the procedure if .Recipients.Count = 0 call the procedure, if not do nothing.
So far so good.
Next problem -
The script works great for up to around 200 entries at a time, but once I go over that I get
If I choose to debug, it highlights the line .Save as noted below
Sub ConvertMeetingToAppt(myMeeting As Outlook.AppointmentItem)
' remove all recipients
Do Until .Recipients.count = 0
' reset meeting status
.MeetingStatus = olNonMeeting
Does anyone think this could be a performance issue?