Solved

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

Posted on 2016-08-26
5
25 Views
Last Modified: 2016-08-31
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
0
Comment
Question by:Alexandre Michel
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
5 Comments
 
LVL 23

Expert Comment

by:yo_bee
ID: 41771518
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?
0
 
LVL 4

Author Comment

by:Alexandre Michel
ID: 41772591
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.
0
 
LVL 4

Author Comment

by:Alexandre Michel
ID: 41772604
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"
0
 
LVL 4

Accepted Solution

by:
Alexandre Michel earned 0 total points
ID: 41772610
Update & Resolution:

I found a way to do this without using VBS... Instead, I can use Conditional Formatting
Here are some links explaining the way to do it
https://blogs.msdn.microsoft.com/seliot/2010/02/04/conditional-formatting-of-appointments-in-outlook-2010/
https://www.msoutlook.info/question/811
0
 
LVL 4

Author Closing Comment

by:Alexandre Michel
ID: 41777759
This solves the issue in a much easier way that using a script and it is instantaneous
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When you have clients or friends from around the world, it becomes a challenge to arrange a meeting or effectively manage your time. This is where Outlook's capability to show 2 time zones in one calendar comes in handy.
This article describes how to import an Outlook PST file to Office 365 using a third party product to avoid Microsoft's Azure command line tool, saving you time.
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …
Many of my clients call in with monstrous Gmail overloading issues with Outlook. A quick tip is to turn off the All Mail and Important folders from synching. Here is a quick video I made to show you how to turn off these and other folders in Gmail s…

739 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question