Alexandre Michel
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
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
ASKER
Yes, I would like indeed to have
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.
Free = Green,
Tentative = Category Yellow
Busy = Category Orange and
Out f the Office = Category Red
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.
ASKER
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/
I now need to find a way to replace Appt.End < Now() with something that test the value of "Show As"
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
I now need to find a way to replace Appt.End < Now() with something that test the value of "Show As"
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
This solves the issue in a much easier way that using a script and it is instantaneous
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?