ML
    • Recent
    • Categories
    • Tags
    • Popular
    • Users
    • Groups
    • Register
    • Login

    Outlook, convert meetings to appointments

    Scheduled Pinned Locked Moved IT Discussion
    6 Posts 1 Posters 1.0k Views
    Loading More Posts
    • Oldest to Newest
    • Newest to Oldest
    • Most Votes
    Reply
    • Reply as topic
    Log in to reply
    This topic has been deleted. Only users with topic management privileges can see it.
    • DashrenderD
      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.

      Suggestions?

      Additionally, I need the script to only change meetings that have no recipients, not all meetings, into appointments.

      1 Reply Last reply Reply Quote 1
      • DashrenderD
        Dashrender
        last edited by

        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.

        1 Reply Last reply Reply Quote 0
        • DashrenderD
          Dashrender
          last edited by

          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.

          1 Reply Last reply Reply Quote 0
          • DashrenderD
            Dashrender
            last edited by

            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.

            1 Reply Last reply Reply Quote 1
            • DashrenderD
              Dashrender
              last edited by

              Next problem -

              The script works great for up to around 200 entries at a time, but once I go over that I get
              error.PNG

              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

              1 Reply Last reply Reply Quote 0
              • DashrenderD
                Dashrender
                last edited by

                Does anyone think this could be a performance issue?

                1 Reply Last reply Reply Quote 0
                • 1 / 1
                • First post
                  Last post