Always use Tasks, not Outlook's To-Do List

Dave offers this solution for Outlook users who want to open the Task module to a task list, instead of the To-Do list.

I have my Tasks set up in Tasks. I do not use the To-Do List. My Tasks are in Tasks, and I am constantly selecting that list to view, but Outlook thinks it should default back to the To-Do List, which is not where my Tasks are. How do I stop this from happening?

Our usual recommended solution is to create a custom view that includes only tasks and/or only tasks from a specific Tasks folder. This VBA solution does the same thing, by selecting a specific Task folder when you open the Task navigation module.

To use, add the following code to the top of the VB Editor's ThisOutlookSession.

To test the macro without restarting Outlook, click in the Application_Startup sub and click the Run button. Go back to Outlook, select the To-do folder then switch to Mail, then back to Tasks. The Tasks folder in the My Tasks section will be selected.

Macro to Use a Task Folder by Default

Open the VBA Editor using Alt+F11 and paste the following code in ThisOutlookSession. Click in the Startup sub and press Run to test it.

The index number in the following line controls which folder is selected when you switch to the Task Folder. This selects this second folder in the list. For example, to always use my "New Stuff" folder in the screenshot above, I'd change the index number to 5.
Set objNavFolder = objGroup.NavigationFolders.Item(2)

You'll need to sign the macro when you are done testing it or set Outlook's macro security to allow unsigned macros.

Dim WithEvents objPane As NavigationPane
 
Private Sub Application_Startup()
    Set objPane = Application.ActiveExplorer.NavigationPane
 
End Sub
 
 
 
Private Sub objPane_ModuleSwitch(ByVal CurrentModule As NavigationModule)
  Dim objModule As tasksmodule
  Dim objGroup As NavigationGroup
  Dim objNavFolder As NavigationFolder
 
 If CurrentModule.NavigationModuleType = olModuleTasks Then
     Set objModule = objPane.Modules.GetNavigationModule(olModuleTasks)
     Set objGroup = objModule.NavigationGroups("My Tasks")

' Change the 2 to start in a different folder
     Set objNavFolder = objGroup.NavigationFolders.Item(2)
     objNavFolder.IsSelected = True
  End If
  Set objNavFolder = Nothing
  Set objGroup = Nothing
  Set objModule = Nothing
 End Sub