Share via


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

Objeto CalendarView

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.