?
Solved

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

Posted on 2016-08-26
5
Medium Priority
?
49 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
  • 4
5 Comments
 
LVL 24

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

Problems using Powershell and Active Directory?

Managing Active Directory does not always have to be complicated.  If you are spending more time trying instead of doing, then it's time to look at something else. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why

Question has a verified solution.

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

This article describes how to import Lotus Notes Contacts into Outlook 2016, 2013, 2010 and 2007 etc. with a few manual steps. You can easily export and migrate Lotus Notes contacts into Microsoft Outlook without having to use any third party tools.
In the absence of a fully-fledged GPO Management product like AGPM, the script in this article will provide you with a simple way to watch the domain (or a select OU) for GPOs changes and automatically take backups when policies are added, removed o…
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …
As many of you are aware about Scanpst.exe utility which is owned by Microsoft itself to repair inaccessible or damaged PST files, but the question is do you really think Scanpst.exe is capable to repair all sorts of PST related corruption issues?
Suggested Courses

862 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