How do I modify Categories in a shared Calendar RRS feed

  • Question

  • Tried this but is merely gets the category of the current user, not the ones in the shared folder

    Sub CreateCategories(Sheet, CalendarOwner) Dim OutlookNamespace As Outlook.NameSpace Dim Owner As Outlook.Recipient Dim Categories As Outlook.Categories Dim Calendar As Outlook.Folder Set OutlookNamespace = Outlook.GetNamespace("MAPI") Set Owner = OutlookNamespace.CreateRecipient(CalendarOwner) Owner.Resolve If Owner.Resolved Then Set Categories = OutlookNamespace.Categories Dim Row As Integer Row = 1 While Sheet.Cells(Row, 1) <> "" Dim CategoryName As String CategoryName = Sheet.Cells(Row, 1)

    If Categories.Item(CategoryName) Then Categories.Remove (CategoryName) End If Categories.Add CategoryName, Sheet(Row, 2) Wend End If End Sub

    Tuesday, June 23, 2020 8:43 AM

All replies