AppointmentItem.BusyStatus (Outlook)
Returns or sets an OlBusyStatus constant indicating the busy status of the user for the appointment. Possible return values are olBusy - The user is busy, olFree - The user is available, olOutOfOffice - The user is out of office, olTentative - The user has a tentative appointment scheduled, olWorkingElsewhere - The user is working in a location away from the office.
Session.CreateSharingItem.Move.Items(1).BusyStatus = olBusy