AppointmentItem.Duration Property (Outlook)
Returns or sets a Long indicating the duration (in minutes) of the AppointmentItem. Read/write.
This Visual Basic for Applications example uses Application.CreateItem to create an appointment and uses AppointmentItem.MeetingStatus to set the meeting status to "Meeting" to turn it into a meeting request with both a required and an optional attendee.
Sub ScheduleMeeting() Dim myItem as AppointmentItem Dim myRequiredAttendee As Recipient Dim myOptionalAttendee As Recipient Dim myResourceAttendee As Recipient Set myItem = Application.CreateItem(olAppointmentItem) myItem.MeetingStatus = olMeeting myItem.Subject = "Strategy Meeting" myItem.Location = "Conference Room B" myItem.Start = #9/24/2002 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