outlook appointment color

Posted on 2007-03-21
Medium Priority
Last Modified: 2012-08-14
Microsoft Windows 2000  Outlook 2003 VBA or VBScript  - Want to change the appointment color by program automatically when an appointment is added - where can i find the syntax for accessing this part of Outlook
Question by:ston4u
1 Comment
LVL 76

Accepted Solution

David Lee earned 2000 total points
ID: 18867785
This page at Outlookcode.com (http://www.outlookcode.com/codedetail.aspx?id=139) shows how to set the label color of an appointment.  The colors themselves cannot be changed, i.e. you cannot substitute one color for another or alter the label colors in any way.  As for doing this automatically, that's simple enough.  We just need to trap the event that's fired when an item is added to the calendar.  Something like this:

Private WithEvents olkCalendar As Items

Private Sub Application_Quit()
    Set olkCalendar = Nothing
End Sub

Private Sub Application_Startup()
    Set olkCalendar = Session.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub olkCalendar_ItemAdd(ByVal Item As Object)
    'Code for whatever you want to do when a new item is added goes here
End Sub

Featured Post

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

I. Introduction There's an interesting discussion going on now in an Experts Exchange Group — Attachments with no extension . This reminded me of questions that come up here at EE along the lines of, "How can I tell the type of file from its cont…
Take advantage of one of the most useful technologies available - virtualization!
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Windows 8 came with a dramatically different user interface known as Metro. Notably missing from that interface was a Start button and Start Menu. Microsoft responded to negative user feedback of the Metro interface, bringing back the Start button a…

588 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