Solved

Outlook System Folder STUMBLE!!

Posted on 2001-06-13
9
802 Views
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

Angela
0
Comment
Question by:SxySysAdm
9 Comments
 
LVL 16

Expert Comment

by:Neo_mvps
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
     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

0
 
LVL 16

Expert Comment

by:Neo_mvps
ID: 6188138
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"
0
 
LVL 16

Expert Comment

by:Neo_mvps
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.)
0
 
LVL 16

Expert Comment

by:Neo_mvps
ID: 6202061
Hi Angela,

Were you able to get the name of the default folders changed?
0
What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

 

Author Comment

by:SxySysAdm
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.
0
 
LVL 16

Expert Comment

by:Neo_mvps
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.

/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.)
0
 
LVL 16

Accepted Solution

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

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

Expert Comment

by:PandoraMod
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.

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

Expert Comment

by:KristjanLaane
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


0

Featured Post

Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

Join & Write a Comment

Find out how to use dynamic social media in email signatures with this top 10 DOs & DON’Ts.
Check out this infographic on what you need to make a good email signature that will work perfectly for your organization.
To add imagery to an HTML email signature, you have two options available to you. You can either add a logo/image by embedding it directly into the signature or hosting it externally and linking to it. The vast majority of email clients display l…
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: …

705 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now