Link to home
Create AccountLog in
Avatar of Alexandre Michel
Alexandre MichelFlag for Australia

asked on

Outlook appointment: way (script?) to change the "Category" field based on the "Show As" field

Hi Experts

I like to use Categories to change the colour of certain Outlook appointments. I usually do this when I create the appointment.

I have a 3rd party app that creates appointments in my calendar. I cannot ask the 3rd party app to set a particular Category - BUT - I can ask it to set the "Show As" field (Free, Tentative, Busy, Out of the Office)

Is there a way to change an Appointment Category after it is created based on its "Show As" value? I assume this needs to be scheduled every xx (15) minutes??

Alex
Avatar of yo_bee
yo_bee
Flag of United States of America image

Do you want this to change whenever the Show As changes.
So if Tentative it is Yellow, but when it changes to busy be Red or upon creation it is set then and never will change unless human intervention is involved?
Avatar of Alexandre Michel

ASKER

Yes, I would like indeed to have
Free = Green,
Tentative = Category Yellow
Busy = Category Orange and
Out f the Office = Category Red

The "Show As" is generally changed by the 3rd party app.

I assume that there could be a script that could run every so often and check the "Show As" for  all appointments, then change the "Category" accordingly.
I am doing some research and found a script that could be modified
It comes from http://www.slipstick.com/outlook/calendar/automatically-change-appointment-categories-vba/ 

Public Sub AddCategory()
 Dim Appt As Object

  Set Items = Session.GetDefaultFolder(olFolderCalendar).Items
   For Each Appt In Items
    On Error Resume Next

If Appt.End < Now() Then
    With Appt
       .Categories = "Completed"
       .ReminderSet = False
       .Save
    End with
End If
 
Next
 
Set Appt = Nothing

End Sub

Open in new window


I now need to find a way to replace Appt.End < Now() with something that test the value of "Show As"
ASKER CERTIFIED SOLUTION
Avatar of Alexandre Michel
Alexandre Michel
Flag of Australia image

Link to home
membership
Create an account to see this answer
Signing up is free. No credit card required.
Create Account
This solves the issue in a much easier way that using a script and it is instantaneous