none
Outlook 2010 changing default save location

    Question

  • 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!

     

    DoriLynn



    DoriLynn

    Tuesday, August 07, 2012 2:57 PM

Answers

  • Hi DoriLynn,

    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:

    1. Click File -> Options -> Customize Ribbon.
    2. High-light Home under Main Tabs, and click New group in the right panel.
    3. Drop down Choose command from box, select Marcos and click Add >>.

    More information, click Customize the Ribbon in Office 2010.

    Best regards.


    William Zhou

    TechNet Community Support


    Thursday, August 09, 2012 6:24 AM