Outlook System Folder STUMBLE!!

Posted on 2001-06-13
Medium Priority
Last Modified: 2008-03-03
We have a User that magically renamed his system folders (Inbox, Outbox etc..) into french. Now he wants us to remove it. I don't have a clue what he did and how to change it. When I try to access the mailbox as Exchange Administrator - it crapps out. does anybody have a solution to this so that his system folders change back to english?

Thank you in advance for speedy responses

Question by:SxySysAdm
LVL 16

Expert Comment

ID: 6188125
The only way that I am aware of on how to rename system folders (Inbox, Outbox, .etc) is to use the old Windows Messaging client from Win9x/NT4 or from code.

Here is code sample.  (Copy the text into a file named renfldr.vbs and watch for word wrapping.)

' RenFldr - Rename Outlook "Special Folders"
' (c) Neo (neo@mvps.org)
' 11.11.2000, v.1.0

' Test System
'   Windows Script Host v. 5.1
'   VBScript v. 5.5
'   Outlook 2000 (SR1a)
'   Windows 2000 (SP1/2)

Const olFolderDeletedItems = 3
Const olFolderOutbox       = 4
Const olFolderSentItems    = 5
Const olFolderInbox        = 6
Const olFolderCalendar     = 9
Const olFolderContacts     = 10
Const olFolderJournal      = 11
Const olFolderNotes        = 12
Const olFolderTasks        = 13
Const olFolderDrafts       = 16

Dim Engine
Dim Outlook
Dim Folder

Select Case UCase(Right(WScript.FullName, 11))
     Case "WSCRIPT.EXE"
          Engine = "W"
     Case "CSCRIPT.EXE"
          Engine = "C"
End Select

Set Args = WScript.Arguments

If Args.Count = 0 Then
End If

If Args.Item(0) = "-?" Or Args.Item(0) = "/?" Or Args.item(0) = "?" Then
End If

If Args.Count <> 2 Then
End If

Set Outlook = CreateObject("Outlook.Application")
Set Folder = Nothing

Select Case UCase(Args.Item(0))
     Case "CALENDAR"
          Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderCalendar)
     Case "INBOX"
          Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderInbox)
     Case "OUTBOX"
          Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderOutbox)
     Case "SENTITEMS"
          Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderSentItems)
          Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderDeletedItems)
     Case "CONTACTS"
          Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderContacts)
     Case "JOURNAL"
          Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderJournal)
     Case "NOTES"
          Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderNotes)
     Case "TASKS"
          Set Folder = Outlook.GetNameSpace("MAPI").GetDefaultFolder(olFolderTasks)
     Case Else
End Select

If Folder Is Nothing Then
End If

Folder.Name = Args.Item(1)

Set Folder = Nothing
Set Outlook = Nothing

Sub DisplayHelp()
     If Engine = "W" Then
          MsgBox "RenFldr:" & vbCRLF &_
               " Change Name of Default Folders" & vbCRLF & vbCRLF &_
               "Usage: RenFldr Folder NewName" & vbCRLF & vbCRLF &_
               " Supported values for Folder:" & vbCRLF &_
               " Inbox" & vbCRLF &_
               " Outbox" & vbCRLF &_
               " Calendar" & vbCRLF &_
               " SentItems" & vbCRLF &_
               " DeletedItems" & vbCRLF &_
               " Contacts" & vbCRLF &_
               " Journal" & vbCRLF &_
               " Notes" & vbCRLF &_
               " Tasks"
          WScript.StdOut.WriteLine "RenFldr:"
          WScript.StdOut.WriteLine " Change Name of Default Folders" & vbCRLF
          WScript.StdOut.WriteLine "Usage: RenFldr Folder NewName" & vbCRLF
          WScript.StdOut.WriteLine " Supported values for Folder:"
          WScript.StdOut.WriteLine " Inbox"
          WScript.StdOut.WriteLine " Outbox"
          WScript.StdOut.WriteLine " Calendar"
          WScript.StdOut.WriteLine " SentItems"
          WScript.StdOut.WriteLine " DeletedItems"
          WScript.StdOut.WriteLine " Contacts"
          WScript.StdOut.WriteLine " Journal"
          WScript.StdOut.WriteLine " Notes"
          WScript.StdOut.WriteLine " Tasks"
     End If
End Sub

LVL 16

Expert Comment

ID: 6188138
By the way... to use.  Put the *.vbs file in the root of C: and then try.

LVL 16

Expert Comment

ID: 6189307
oh... the script also requires CDO to be installed on the machine in question. (CDO is installed by default under OL98.  For OL2K, it is an optional component that needs to be added.)
Free tool for managing users' photos in Office 365

Easily upload multiple users’ photos to Office 365. Manage them with an intuitive GUI and use handy built-in cropping and resizing options. Link photos with users based on Azure AD attributes. Free tool!

LVL 16

Expert Comment

ID: 6202061
Hi Angela,

Were you able to get the name of the default folders changed?

Author Comment

ID: 6202554
No. I don't know how to use VB that much. I am afraid I mess something up. I forgot to mention that it was the president of the company that did it.
LVL 16

Expert Comment

ID: 6204537
No need to know VB.  The script was designed to run on Windows 98 or Windows 2000 that has the Windows Script Host installed (which it does by default).  You just need to cut/paste the code into a file created by Notepad called renfldr.vbs.

If you save the file in the root of C.  The user just has to select Start | Run | command.com | OK button.  Get them to the "C:\" drive and type:

renfldr inbox Inbox
renfldr sentitems "Sent Items"

The alternative to the code is to use the old Windows Messaging client (EXCHNG32.EXE) to rename the folders.


PS - I've been where you are at.  I have 20 political individuals I have to support and each has managed to rename their folders.  The script has saved my bacon so many times it isn't funny since the older client 'EXCHNG32.EXE' is no longer supported by MS.

PSS - Looking at the way the code posted, there is nothing you have to watch for since it pasted in properly, but if you are leary - write to me at neo@mvps.org.  I will send you the file to any email address you specify.  (I will send it as renfldr.txt.  You just need to rename it to renfldr.vbs since so many sites block this extension.)
LVL 16

Accepted Solution

Neo_mvps earned 1200 total points
ID: 6225999
Just found an Outlook form that just might help.


Expert Comment

ID: 6257887
SxySysAdm, you have had some time to try the solutions posted. Did any of them solve your problem? If not, post more information and the experts will be notified and provide more assistance.

Moderator @ Experts Exchange
e-mail: pandoramod@experts-exchange.com

Expert Comment

ID: 26463936
to confirm to people the vbs execution does not work for Outlook 2007 and does return the dont have permission error (see screenshot at http://www.experts-exchange.com/Software/Internet_Email/Email/Email_Clients/Q_25103239.html), and it seems to me this is most likely because of "After installing the Outlook security update this sample will stop working properly because of changes made by Microsoft." http://www.cdolive.com/modifydefaultfoldernames.htm

i think it is time to give up, unless there are any other types of solution on offer?

p.s. btw for those pre 2007, here is another helpful article in case copy paste introduces linebreaks http://www.eggheadcafe.com/forumarchives/outlookgeneral/Jun2005/post23348749.asp


Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

As a matter of fact, Outlook OST files are of much importance in relation to Exchange mailbox. OST files are independent as they are simply copy of data of a user’s mailbox on Exchange Server. Though, if the server’s status is changed or it is dama…
Configure external lookups on for external mail flow on Exchange 2013 and Exchange 2016.
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
Whether it be Exchange Server Crash Issues, Dirty Shutdown Errors or Failed to mount error, Stellar Phoenix Mailbox Exchange Recovery has always got your back. With the help of its easy to understand user interface and 3 simple steps recovery proced…

624 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question