仅显示选定类别的 Outlook 日历

Question

是否可以通过任何方式让 Outlook 显示仅显示选定类别约会的月历。

我可以将日历导出到 table 并使用一些 Delphi 代码在日历中显示项目，但直接在 Outlook 中执行会更好

Answer 1

这应该是一个好的开始:

Sub ConfigureDayViewFonts()
    Dim objView As CalendarView
    Dim CriteRia As String
    Dim SearchedCategory As String

    SearchedCategory = "SearchedCategory"

    CriteRia = "@SQL=" & Chr(34) _
        & "urn:schemas-microsoft-com:office:office#Keywords" _
        & Chr(34) & " ci_startswith '" & SearchedCategory & "'"

    ' Check if the current view is a calendar view.
    If Application.ActiveExplorer.CurrentView.ViewType = _
        olCalendarView Then

        ' Obtain a CalendarView object reference for the
        ' current calendar view.
        Set objView = _
            Application.ActiveExplorer.CurrentView

        With objView
            ' Set the calendar view to show a
            ' single day.
            .CalendarViewMode = olCalendarViewMonth
            .Filter = CriteRia

            ' Save the calendar view.
            '.Save
        End With
    End If
End Sub

看到这个答案及其建议自己调整过滤器：

仅显示选定类别的 Outlook 日历

Show Outlook calendar with only selected category

outlook

vba

calendar

categories