Método MeetingItem.GetAssociatedAppointment (Outlook)
Devuelve un objeto AppointmentItem que representa la cita asociada a la convocatoria de reunión.
Sintaxis
expresión. GetAssociatedAppointment( _AddToCalendar_ )
Expresión Variable que representa un objeto MeetingItem .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| AddToCalendar | Obligatorio | Boolean | True para agregar la reunión a la carpeta calendario predeterminada. |
Valor devuelto
Un objeto AppointmentItem que representa la cita asociada.
Ejemplo:
En este ejemplo de Visual Basic para aplicaciones (VBA) se busca un objeto MeetingItem en la carpeta Bandeja de entrada que aún no se ha respondido y se agrega la cita asociada a la carpeta calendario. A continuación, se responde al remitente aceptando la reunión.
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
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.