Propriété CalendarView.DaysInMultiDayMode (Outlook)
Renvoie ou définit une valeur de type Long qui représente le nombre de jours consécutifs affichés dans l’objet CalendarView. Lecture/écriture
Syntaxe
expression. DaysInMultiDayMode
Expression Variable qui représente un objet CalendarView .
Remarques
Vous pouvez définir cette propriété sur une valeur comprise entre 2 et 14. Si cette propriété est définie sur une valeur inférieure à 2, la propriété a la valeur 2. Si la valeur est supérieure à 14, la propriété est définie sur 14. La valeur par défaut de cette propriété est 5.
Exemple
L'exemple Visual Basic for Applications (VBA) suivant crée un nouvel objet CalendarView dans le dossier Calendrier par défaut, puis le configure afin d'afficher 14 jours consécutifs en mode Plusieurs jours, avec les éléments Outlook affichés dans une échelle de temps horaire.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.