Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
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
|Library not Registered||16||62|
|email vb script syntax to move an email to a folder or forward to another email based on a condition||7||49|
|Exchange 2010 Room mailboxes||5||33|