Custom Calendar View Outlook 2013

MelanieB
3StarLounger
Posts: 310
Joined: 19 Apr 2010, 16:18
Location: middle of the state of Washington

Custom Calendar View Outlook 2013

Post by MelanieB »

I want to create a custom view for my calendar and save it.
I have selected the day view and then selected every Wed and Thurs for a month.
I'd like to save that as a view.
I thought I had it. I tried, Save as Current View as New View, but that didn't work.
I looked at all the view options and can't see a way to save it the way I want it saved - showing only Wed and Thurs for 4 weeks.

Anyone know how to do this?

User avatar
HansV
Administrator
Posts: 78563
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: Custom Calendar View Outlook 2013

Post by HansV »

I don't think that is possible. If someone else has a suggestion, I'll be happy to know...
Best wishes,
Hans

PJ_in_FL
5StarLounger
Posts: 1102
Joined: 21 Jan 2011, 16:51
Location: Florida

Re: Custom Calendar View Outlook 2013

Post by PJ_in_FL »

You can, as an alternative, set the work week to only Wed and Thur, then the week view only displays those days.
(Ref How to define and change working hours / days / week in Outlook)

I'm also not sure about getting 4 weeks of work weeks to display and save it as a view..... :scratch:
PJ in (usually sunny) FL

RaudelJr
2StarLounger
Posts: 136
Joined: 17 Apr 2017, 19:16

Re: Custom Calendar View Outlook 2013

Post by RaudelJr »

I know this is an old post.

But I began looking into custom calendar views and found this from Microsoft support.

Code: Select all

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
It worked for me though I believe there may be some bugs, but this code may be able to get modified and used two display two weeks, three weeks, etc. in week view.