Método MeetingItem.GetAssociatedAppointment (Outlook)

Retorna um objeto AppointmentItem que representa o compromisso associado à solicitação de reunião.

Sintaxe

expression. GetAssociatedAppointment( _AddToCalendar_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
AddToCalendar	Obrigatório	Boolean	True para adicionar a reunião à pasta de calendário padrão.

Valor de retorno

Um objeto AppointmentItem que representa o compromisso associado.

Exemplo

Este exemplo Visual Basic for Applications (VBA) localiza MeetingItem na pasta de caixa de entrada padrão que ainda não foi respondida para e adiciona o compromisso associado à pasta calendário. Em seguida, ele responde ao remetente aceitando a reunião.

Sub AcceptMeeting() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myFolder As Outlook.Folder 
 
 Dim myMtgReq As Outlook.MeetingItem 
 
 Dim myAppt As Outlook.AppointmentItem 
 
 Dim myMtg As Outlook.MeetingItem 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) 
 
 Set myMtgReq = myFolder.Items.Find("[MessageClass] = 'IPM.Schedule.Meeting.Request'") 
 
 If TypeName(myMtgReq) <> "Nothing" Then 
 
 Set myAppt = myMtgReq.GetAssociatedAppointment(True) 
 
 Set myMtg = myAppt.Respond(olResponseAccepted, True) 
 
 myMtg.Send 
 
 End If 
 
End Sub

Confira também

Objeto MeetingItem

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.