Outlook) (Recipient.Type 属性
返回或设置一个 Long 表示收件人的类型。 读/写。
语法
表达式。类型
表达 一个代表 Recipient 对象的变量。
备注
根据收件人的类型，此属性返回或设置一个 长 对应数值相当于下列常量之一:
JournalItem 收件人： OlJournalRecipientType 常量 olAssociatedContact 。
MailItem 收件人：以下 OlMailRecipientType 常量之一： olBCC 、 olCC 、 olOriginator 或 olTo 。
MeetingItem 收件人：以下 OlMeetingRecipientType 常量之一： olOptional 、 olOrganizer 、 olRequired 或 olResource 。
TaskItem 收件人：以下 OlTaskRecipientType 常量之一： olFinalStatus 或 olUpdate 。
此属性可能不会始终返回会议室的相应收件人类型。 例如，会议室可能指定为会议要求中的必选收件人，在此情况下，此属性不会返回该会议室的 olResource 。
若要可靠地确定收件人是会议室，使用消息传递 API (MAPI) 属性， PidTagDisplayTypeEx 的 收件人 对象。 您可以访问 Outlook 对象模型中使用 PropertyAccessor 对象的该属性。 PidTagDisplayTypeEx 属性表示为“http://schemas.microsoft.com/mapi/proptag/0x39050003"在 MAPI proptag 命名空间中。 请注意， PidTagDisplayTypeEx 属性在中不可用的 Microsoft Exchange Server 版本早于 Microsoft Exchange Server 2007 年;在 Exchange Server 这种早期版本中，可以使用 Recipient.Type 属性，并假定有一个 olResource 不同类型的收件人不是会议室。
示例
下面的 Visual Basic for Applications (VBA) 示例说明如何将 PropertyAccessor 用于会议要求的 Recipients 集合中的每个 Recipient 对象的 PidTagDisplayTypeEx 属性。 如果该属性的值为 7（在 MAPI 头文件 mapidefs.h 中定义的 MAPI 常量 DT_ROOM 的值），则该收件人为会议室。 此示例假定当前检查器中有会议要求。
Sub DemoMeetingRecipients()
Dim myAppointment As Outlook.AppointmentItem
Dim myPA As Outlook.PropertyAccessor
Dim d As Long
Dim myInt As Long
Set myAppointment = Application.ActiveInspector.CurrentItem
For d = 1 To myAppointment.Recipients.count
Debug.Print myAppointment.Recipients.item(d).name
Debug.Print myAppointment.Recipients.item(d).Type
Set myPA = myAppointment.Recipients.item(d).PropertyAccessor
myInt = myPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x39050003")
Debug.Print myInt
Debug.Print "---"
Next d
End Sub
以下 VBA 示例使用 CreateItem 来创建约会，并使用 MeetingStatus 会议将状态设置为"会议"，以将其转换成的必选和可选与会者的会议要求。 使用有效的名称以避免错误，应更换收件人的姓名。
Sub ScheduleMeeting()
Dim myItem as Outlook.AppointmentItem
Dim myRequiredAttendee As Outlook.Recipient
Dim myOptionalAttendee As Outlook.Recipient
Dim myResourceAttendee As Outlook.Recipient
Set myItem = Application.CreateItem(olAppointmentItem)
myItem.MeetingStatus = olMeeting
myItem.Subject = "Strategy Meeting"
myItem.Location = "Conference Room B"
myItem.Start = #9/24/2003 1:30:00 PM#
myItem.Duration = 90
Set myRequiredAttendee = myItem.Recipients.Add ("Nate Sun")
myRequiredAttendee.Type = olRequired
Set myOptionalAttendee = myItem.Recipients.Add ("Kevin Kennedy")
myOptionalAttendee.Type = olOptional
Set myResourceAttendee = myItem.Recipients.Add("Conference Room B")
myResourceAttendee.Type = olResource
myItem.Display
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。