Método Inspector.SetSchedulingStartTime (Outlook)
Define o horário de início de um item de reunião na grade de disponibilidade, na guia Assistente de Agendamento do inspetor.
Sintaxe
expression. SetSchedulingStartTime( _Start_ )
Expressão Uma variável que representa um objeto 'Inspector'.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Start | Obrigatório | Date | O início do intervalo de tempo em que a guia Assistente de Agendamento do inspetor exibe horários de disponibilidade para participantes da reunião. |
Comentários
O objeto especificado pela propriedade CurrentItem do objeto Inspector pai deve ser um AppointmentItem ou MeetingItem. Guia Assistente de agendamento deve ser exibida no Inspetor, caso contrário, Microsoft Outlook gerará um erro. Se o Outlook não é possível exibir a guia Assistente de agendamento para aquele tipo de item, o Outlook exibirá o seguinte erro: a hora de início de agendamento só pode ser definida quando o Assistente de agendamento é exibido em um item de reunião.
Exemplo
O exemplo de código a seguir no Microsoft Visual Basic for Applications (VBA) mostra como usar o método SetSchedulingStartTime para definir a hora de início de agendamento na guia Assistente de agendamento de um AppointmentItem. A hora de início do compromisso é definida para um mês, a partir de agora, e a hora de início de agendamento também é definida para um mês a partir de agora.
Sub DemoSetSchedulingStartTime()
Dim oAppt As Outlook.AppointmentItem
Dim oInsp As Outlook.inspector
' Create and display appointment.
Set oAppt = Application.CreateItem(olAppointmentItem)
oAppt.MeetingStatus = olMeeting
oAppt.Subject = "Test Appointment"
oAppt.Start = DateAdd("m", 1, Now)
' Display the appointment in the Appointment tab of the inspector.
oAppt.Display
Set oInsp = oAppt.GetInspector
' Switch to the Scheduling Assistant tab in that inspector.
oInsp.SetCurrentFormPage ("Scheduling Assistant")
' Set the appointment start time in the Scheduling Assistant.
oInsp.SetSchedulingStartTime (DateAdd("m", 1, Now))
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.