Partilhar via

Propriedade Recipient.Type (Outlook)

  • Artigo

Retorna ou define um valor Long que representa o tipo de destinatário. Leitura/gravação.

Sintaxe

expressão. Tipo

Expressão Uma variável que representa um objeto Destinatário .

Comentários

Dependendo do tipo de destinatário, essa propriedade retorna ou define um valor Long correspondente ao equivalente numérico de uma das seguintes constantes:

Essa propriedade pode nem sempre retornar o tipo de destinatário apropriado para uma sala de conferência. Por exemplo, uma sala de conferência pode ser especificada como um destinatário necessário em uma solicitação de reunião, caso em que essa propriedade não retornará olResource para a sala de conferência em questão.

Para determinar se um destinatário é uma sala de conferência com confiança, use a propriedade Messaging API (MAPI), PidTagDisplayTypeEx, do objeto Recipient. Você pode acessar essa propriedade usando o objeto PropertyAccessor no modelo de objeto do Outlook. A propriedade PidTagDisplayTypeEx é representada como "http://schemas.microsoft.com/mapi/proptag/0x39050003" no namespace de proptag MAPI. Observe que a propriedade PidTagDisplayTypeEx não está disponível nas versões anteriores ao Microsoft Exchange Server 2007; do Microsoft Exchange Server em tais versões anteriores do Exchange Server, pode usar a propriedade Recipient e presuma que um destinatário que tem um tipo diferente de olResource não é uma sala de conferência.

Exemplo

O seguinte exemplo Visual Basic for Applications (VBA) mostra como usar o PropertyAccessor na propriedade PidTagDisplayTypeEx para cada um dos objetos Recipient da coleção de destinatários de uma solicitação de reunião. Se o valor dessa propriedade for 7 (o valor da constante de MAPI DT_ROOM conforme definido no arquivo de cabeçalho de MAPI, mapidefs.h), então, que o destinatário é uma sala de conferência. Este exemplo pressupõe que haja uma solicitação de reunião no Inspetor atual.

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

O seguinte exemplo VBA usa CreateItem para criar um compromisso e usa MeetingStatus para definir o status da reunião como "Reunião" para transformá-lo em uma solicitação de reunião com participantes necessários e opcionais. Os nomes dos destinatários deverão ser substituídos por nomes válidos para evitar erros.

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

Confira também

Objeto de destinatário

Referenciando propriedades por Namespace

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.