Compartir a través de

Crear una cita como una reunión en el Calendario

  • Artículo

En este tema se muestra un procedimiento CreateApptde Visual Basic para Aplicaciones (VBA), que crea mediante programación una cita, establece varias propiedades y envía la cita para solicitar una reunión. CreateAppt usa el método CreateItem para crear un objeto AppointmentItem. Establece la propiedad MeetingStatus de AppointmentItem en olMeeting para indicar que la cita es una convocatoria de reunión y establece un asistente necesario, un asistente opcional y una ubicación de reunión como recurso. El ejemplo muestra y envía el elemento de cita.

Sub CreateAppt() 
 Dim myItem As Object 
 Dim myRequiredAttendee, myOptionalAttendee, myResourceAttendee As Outlook.Recipient 
 
 Set myItem = Application.CreateItem(olAppointmentItem) 
 myItem.MeetingStatus = olMeeting 
 myItem.Subject = "Strategy Meeting" 
 myItem.Location = "Conf Rm All Stars" 
 myItem.Start = #9/24/2009 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("Conf Rm All Stars") 
 myResourceAttendee.Type = olResource 
 myItem.Display 
 myItem.Send 
End Sub

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.