![]() |
#1
|
|||
|
|||
![]()
Is there a way to reset or change the default of the "Current View" in the reading pane so that it's standard throughout all my folders? I want to have the same fields in all my folders and I get tired of doing it manually everytime I have to create a new folder.
Currently using Office Professional Plus 2007 (at work) In the Reading Pane, for my view, I use the "Bottom" option. Thanks |
#2
|
|||
|
|||
![]()
See if this works for you. "By default all folders and newly created folders are in the “Messages” view (except for the Sent Items folder which is in the “Sent To” view). If you make changes to this view ..."
http://www.msoutlook.info/question/51 ******************* Consider rating the thread by going to the "Rate Thread" dropdown. |
#3
|
|||
|
|||
![]()
Niton,
This is a good start, but it doesn't seem to finish, with how to apply to all my folders. It doesn't say what to do, what to modify once you get to the "Custom View Oranizer" And how to apply your new template to all the subfolders. Also, I have multiple PST folders, would I have to do this to each one? (Which is not a problem) Thanks. |
#4
|
|||
|
|||
![]() Quote:
If you wish, you can try this. First verify the name of the view in this line ActiveExplorer.CurrentView = "Messages". If you find you have to change "Messages" leave the quotes in. Select a folder then run the code. Check it out on a test folder with subfolders before you try the inbox. Code:
Sub Set_View() Dim objNS As Outlook.Namespace Dim myFolder As Outlook.MAPIFolder Dim origFolder As Outlook.MAPIFolder Set objNS = Application.GetNamespace("MAPI") Set origFolder = ActiveExplorer.CurrentFolder Set myFolder = origFolder ProcessFolder myFolder Set ActiveExplorer.CurrentFolder = origFolder Set objNS = Nothing Set myFolder = Nothing Set origFolder = Nothing End Sub Private Sub ProcessFolder(startfolder As Outlook.MAPIFolder) ' http://www.outlookcode.com/codedetail.aspx?id=628 Dim objFolder As Outlook.MAPIFolder Dim objItem As Object Dim myExplorer As Explorer Set ActiveExplorer.CurrentFolder = startfolder ActiveExplorer.CurrentView = "Messages" ' process all the subfolders of this folder For Each objFolder In startfolder.Folders ProcessFolder objFolder Next End Sub You will find information about: - macro security settings - where to put the code (You can use a regular module with Insert | Module) - how to create a button |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
userman | Outlook | 1 | 06-06-2012 11:17 PM |
![]() |
KIM SOLIS | Excel | 2 | 11-04-2011 06:09 PM |
Current view filter applies automatically | lumisy | Outlook | 3 | 03-25-2011 05:44 AM |
Adding to customize view | aussie | Outlook | 0 | 01-06-2011 01:00 PM |
![]() |
Styler001 | Word | 4 | 01-25-2010 06:40 PM |