Propriedade CalendarView.DaysInMultiDayMode (Outlook)
Retorna ou define um valor Long que representa o número de dias consecutivos exibidos no objeto CalendarView. Leitura/gravação
Sintaxe
expression. DaysInMultiDayMode
Expressão Uma variável que representa um objeto CalendarView .
Comentários
Essa propriedade pode ser definida para um valor entre 2 e 14. Se essa propriedade for definida para um valor menor do que 2, ela será definida como 2. Se essa propriedade for definida para um valor maior do que 14, ela será definida como 14. O valor padrão para essa propriedade é 5.
Exemplo
O seguinte exemplo Visual Basic for Applications (VBA) cria um novo objeto CalendarView na pasta calendário padrão e, em seguida, configura para 14 dias consecutivos são exibidas em modo de vários dia, com itens do Outlook exibidos em uma escala de tempo por hora.
Sub CreateTwoWeekView()
Dim objNamespace As NameSpace
Dim objFolder As Folder
Dim objView As CalendarView
' Obtain Folder object reference to the Calendar default folder.
Set objNamespace = Application.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)
' Create a new CalendarView object named "Two Weeks".
Set objView = objFolder.Views.Add("Two Weeks", _
olCalendarView, _
olViewSaveOptionAllFoldersOfType)
' Configure the new CalendarView object.
With objView
' Display the view in multi-day mode.
.CalendarViewMode = olCalendarViewMultiDay
' Display 14 consecutive days in multi-day
' mode.
.DaysInMultiDayMode = 14
' Set the time scale for the view in one-hour
' intervals.
.DayWeekTimeScale = olTimeScale60Minutes
' Save and apply the new CalendarView object.
.Save
.Apply
End With
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.