Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.