Change Outlook appointments from FREE to BUSY

Thank you for the script.  We tried to run this on one mailbox and got some sort of a scripting error.  I will post the error screen shot asap.

Scott

Here is the screen shot of the error that pops up.

Not every entry is necessarily an appointment.  Try this change

Chris

dim olApp
Dim olCal
Dim appt
Dim lngAppt
Const olBusy = 2
Const olfoldercalendar = 9
const olAppointment = 26
    set olapp = createobject("outlook.application")
    Set olCal = olapp.session.GetDefaultFolder(olFolderCalendar)
    For lngAppt = 1 To olCal.items.count
        If olCal.items(lngAppt).Class = olAppointment Then _
            olCal.items(lngAppt).BusyStatus = olBusy
    Next
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Didn't get a chance to test Friday due to a bunch of web server and OWA problems...Hopefully we'll be able to test the latest code Monday morning.

Thanks for the update.

I must be doing something incorrectly because I've copied the above 10/23 code into notepad and saved the file as free-busy-test2.vbs onto my desktop.  I open Outlook with a user who was migrated and has most of his old appointments and many of his new appointments showing a FREE.  My .vbs file just blinks and nothing appears to happen.  I closed Outlook and then double-clicked and it brought Outlook up but didn't appear to change the Free Status to Busy.

Ideas?

Thanks for your help so far.

I didn't think it needed saving but just in case:

CHris

dim olApp
Dim olCal
Dim appt
Dim lngAppt
Const olBusy = 2
Const olfoldercalendar = 9
const olAppointment = 26
    set olapp = createobject("outlook.application")
    Set olCal = olapp.session.GetDefaultFolder(olFolderCalendar)
    For lngAppt = 1 To olCal.items.count
        If olCal.items(lngAppt).Class = olAppointment Then
            olCal.items(lngAppt).BusyStatus = olBusy
            olCal.items(lngAppt).save
    Next

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

It sorta kinda works.  If I open Outlook and open the calendar and then open an appointment and then run the .vbs a couple of times (right click and choose Open on the shortcut or right click "open with" and choose Microsoft Windows-based script host) and have seen the status change from Free to Busy.  I don't need to save the appointment before closing it.

What I'm expecting is to open Outlook or let the vbs script open it for the user at their desk and then wait a few minutes and start checking random calendar events with the hopes that they will all be changed from Free to Busy.  

Am I missing something?

If it was an outlook macro then I would hope so.  I'm not sure in the case of the VBS, try it with outlook closed and open outlook after it has run to check for updates.

Double check first from task manager to ensure there are no copies of outlook active.

Chris

Tried with Outlook closed and watched Task Manager show Outlook.exe running and then it shut off.  Nothing changed.

So I opened Outlook and went to calendar and changed the view to all appointments.  My test user has 524 on his calendar, including about 25 future ones.  I started with the 25 future ones by opening all of them.  Then I ran the .vbs you've provided and waited about 45 seconds and the status changed to BUSY on all.  I've gone back to the past appointments and am doing the same at about 50 or so per running.

Any idea why I would need to actually open the appointment window in order for the script to get the status to change?

Your script works and I appreciate your help beyond words...but for the 122 we may have to fix, it will take sometime.

Scott

There is an eerror in teh supplied script ... you may have fixed it yourself but if not try the following in the VBS file

Chris

dim olApp
Dim olCal
Dim appt
Dim lngAppt
Const olBusy = 2
Const olFree = 1
Const olfoldercalendar = 9
Const olAppointment = 26
    Set olapp = createobject("outlook.application")
    Set olCal = olapp.session.GetDefaultFolder(olFolderCalendar)
    For lngAppt = 1 To olCal.items.count
        If olCal.items(lngAppt).Class = olAppointment Then
            olCal.items(lngAppt).BusyStatus = olfree
            olCal.items(lngAppt).save
        End if
    Next

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Sorry Test status use this!

dim olApp
Dim olCal
Dim appt
Dim lngAppt
Const olBusy = 2
Const olFree = 1
Const olfoldercalendar = 9
Const olAppointment = 26
    Set olapp = createobject("outlook.application")
    Set olCal = olapp.session.GetDefaultFolder(olFolderCalendar)
    For lngAppt = 1 To olCal.items.count
        If olCal.items(lngAppt).Class = olAppointment Then
            olCal.items(lngAppt).BusyStatus = olbusy
            olCal.items(lngAppt).save
        End if
    Next
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Chris,

What's up with the Inspector object?  The documentation seemed pretty terse on that, what purpose did using it serve in this solution?  (Just trying to learn more about it...)

~bp

Bill

The inspector basically accesses the object window.  It's precise function when compared with open I don't know but it has it's own properties and methods and in some cases renders an item accessible for changes, ('opens' it) that otherwise are ineffective.  Why it should provide an 'open' interface instead of simply opening the item I don't know, it's just one of those things i've picked up on.  It does however in my terms open the item and therefore when I have problems I try the inspector which was the case here.

Chris

>> Chris,

Fair enough and thanks for the explanation.  I'll have to file it away for future reference.

Hope you're well rested :-).

~bp

Thank you very much.  Writing code like you've done for me is a mystery.  I'm glad the simple tests/feedback to you helped you come up with the complete solution.  We've run the script on two accounts so far and had complete success.