I have a user that utilizes the keyboard a great deal due to some physical issues. She wanted to change the default save location for Outlook. I did some research and found the steps to do so:
• Open Registry Editor (regedit), browse to HKEY_CURRENT USER\Software\Microsoft\Office\14.0\Outlook\Options
• Right click an empty spot on the right pane
• Choose New > String Value
• Rename the String Value you created to DefaultPath
• Double click DefaultPath
• Fill in new value data typing the full path of the new default Save As location
Restart Outlook, should work now.
She tried it and it worked - however, when she chooses a sub-folder within that foldef to save an attachment and then goes back to save the next email, it is at that last folder instead of reverting back to the new default (which this is what she wants).
We are using Exchange Server and Windows 7.
Is there a way to set it so it doesn't remember that last one but each time gets set back to the default folder?
Please let me know and thanks!
Yes, Outlook will use the last folder instead the default path, it also appears in other Office(Word) or windows program(NotePad, etc.).
The default path will return to original until you re-start Outlook.
I cannot find any registry entry store this information, maybe store in binary key.
You can create a Marco and design a default folder to save e-mail messages, please copy and paste following code to Visual Basic editor in Outlook (Press Alt + F11).
Sub Demo() Dim blnSuccessful As Boolean blnSuccessful = SaveMsg("D:\Test\outlook") 'You can change the folder path "D:\Test\outlook" that you want. If blnSuccessful Then MsgBox "Saved successful.", vbInformation, "Tips" Else MsgBox "Failed! Please check the destination is available.", vbCritical, "Error" End If End Sub Function SaveMsg(ByVal FolderPath As String) As Boolean Dim lngLoop As Long Dim lngMsgNumber As Long Dim strSubject As String Dim objItem As Object Dim objRegExp As Object SaveMsg = True Const DefaultSubject = "Untitled" lngMsgNumber = ActiveExplorer.Selection.Count If lngMsgNumber > 0 Then If Right$(FolderPath, 1) <> "\" Then FolderPath = FolderPath & "\" On Error GoTo errHandler Set objRegExp = CreateObject("VBScript.RegExp") objRegExp.IgnoreCase = True objRegExp.MultiLine = False objRegExp.Global = True objRegExp.Pattern = "[\\/:*?""<>|]" For lngLoop = 1 To lngMsgNumber Set objItem = ActiveExplorer.Selection.Item(lngLoop) strSubject = objRegExp.Replace(objItem.Subject, "") If Trim$(strSubject) = "" Then strSubject = DefaultSubject objItem.SaveAs FolderPath & strSubject & ".msg", OlSaveAsType.olMSG Next End If Exit Function errHandler: SaveMsg = False End Function
Add the Marco to Home tab, follow these steps:
- Click File -> Options -> Customize Ribbon.
- High-light Home under Main Tabs, and click New group in the right panel.
- Drop down Choose command from box, select Marcos and click Add >>.
More information, click Customize the Ribbon in Office 2010.
TechNet Community Support