显示“显示类别”对话框,使用户可从中选择与项目主题相对应的类别。
expression.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