Outlook System Folder STUMBLE!!

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

Angela
SxySysAdmAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Neo_mvpsCommented:
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
     DisplayHelp()
     WScript.Quit
End If

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

If Args.Count <> 2 Then
     DisplayHelp()
     WScript.Quit
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)
     Case "DELETEDITEMS"
          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
          DisplayHelp()
End Select

If Folder Is Nothing Then
     WScript.Quit
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"
     Else
          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

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

RENFLDR INBOX Inbox
RENFLDR SENTITEMS "Sent Items"
RENFLDR DELETEDITEMS "Deleted Items"
Neo_mvpsCommented:
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.)
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

Neo_mvpsCommented:
Hi Angela,

Were you able to get the name of the default folders changed?
SxySysAdmAuthor Commented:
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.
Neo_mvpsCommented:
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.

/Neo

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.)
Neo_mvpsCommented:
Just found an Outlook form that just might help.

http://www.cdolive.com/modifydefaultfoldernames.htm

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
PandoraModCommented:
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.

PandoraMod
Moderator @ Experts Exchange
e-mail: pandoramod@experts-exchange.com
KristjanLaaneCommented:
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


It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Outlook

From novice to tech pro — start learning today.