Hassle-free live chat software re-imagined for business growth. 2 users, always free.
Dim WithEvents olkCalendar As Outlook.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) Dim olkAppt As Outlook.AppointmentItem Set olkAppt = Item 'Here are a couple of examples of category rules you can construct to assign a category' 'If the phrase Project X is in the item subject, then assign it to a category called Projects' If InStr(1, olkAppt.Subject, "NRVV") Then AddCategory olkAppt, "NRVV" 'If you are not the meeting organizer, then assign it to a category of Meetings' 'If olkAppt.Organizer <> Session.CurrentUser Then AddCategory olkAppt, "Meetings" olkAppt.Save End Sub Private Sub AddCategory(olkItem As Outlook.AppointmentItem, strCategory As String) If olkItem.Categories = "" Then olkItem.Categories = strCategory Else olkItem.Categories = olkItem.Categories & "," & strCategory End If End Sub
|Suggestions for Calendar app or system for a PC (not cloud-based)||8||78|
|EXCH2013 - cannot search in public folders||1||41|
|How do you change the font color in Outlook 2013 Task View Settings?||2||36|
|Outlook 2013 freezes when replying||4||16|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!