ShowCategoriesDialog 方法

显示“显示类别”对话框，使用户可从中选择与项目主题相对应的类别。

expression  必选。该表达式返回“应用于”列表中的一个对象。

示例

以下示例创建新的约会项目，将项目显示在屏幕上，并打开“显示类别”对话框。

Sub Appointment()
'Creates an appointment item to access Fields property
    Dim appolApp As Outlook.Application
    Dim olApptItem As AppointmentItem
    'Create an instance of the application
    Set appolApp = Outlook.Application
    'Create appointment item
    Set olApptItem = appolApp.CreateItem(olAppointmentItem)

    olApptItem.Body = "Please meet with me regarding these sales figures!"
    olApptItem.Recipients.Add ("Jeff Smith")
    olApptItem.Subject = "Low Sales Reports"
    'Display the item
    olApptItem.Display
    'Display the Show categories dialog
    olApptItem.ShowCategoriesDialog

End Sub