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
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.