Outlook System Folder STUMBLE!!

Posted on 2001-06-13
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 (
' 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 learning courses: Active Directory Deep Dive

Get a firm grasp on your IT environment when you learn Active Directory best practices with Veeam! Watch all, or choose any amount, of this three-part webinar series to improve your skills. From the basics to virtualization and backup, we got you covered.

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 | | 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  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 300 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

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, 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."

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


Featured Post

NFR key for Veeam Backup for Microsoft Office 365

Veeam is happy to provide a free NFR license (for 1 year, up to 10 users). This license allows for the non‑production use of Veeam Backup for Microsoft Office 365 in your home lab without any feature limitations.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Many people use more than one email account and so it becomes difficult for them to manage them when they use separate accounts,  so, in this article, I have shared an easy way to add Other Mail Accounts in your Google Inbox. It helps to combine all…
Many of my clients call in with monstrous Gmail overloading issues with Outlook. A quick tip is to turn off the All Mail and Important folders from synching. Here is a quick video I made to show you how to turn off these and other folders in Gmail s…
CodeTwo Sync for iCloud ( automatically synchronizes your Outlook 2016, 2013, 2010 or 2007 folders with iCloud folders available via iCloud Control Panel. This lets you automatically sync them with…

860 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