Outlook, convert meetings to appointments
-
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.
Suggestions?
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)
With myMeeting
' remove all recipients
Do Until .Recipients.count = 0
.Recipients.Remove 1
Loop
' reset meeting status
.MeetingStatus = olNonMeeting
*********-> .Save
End With
End Sub -
Does anyone think this could be a performance issue?