Rename Speciall folder in Outlook 2003

A

Andrew Ofthesong

Hi...

One of my greatest conerns is understant why speciall folders name are
"fixed"... (really, i searched all microsoft knowledge base, but not find
that)...

Any way, I need to rename this folders.

In the language I use Outlook, the "Junk email" is spelled "Correo
electrónico no deseado"

Imagine!! and how the number of the emails in that folder is to the right of
the name, I need to use **one third** of the screen just to see the number
of emails in the folder.

Same thing, "Trash Can", is "Elementos eliminados"....

Talk about "increased productivity"... I have to spend as i said one third
of the screen jusdt to see silly names of fodlers... So I loose a lot of
space to sea emails!!!

The code i tried is:

Sub FolderName()
Dim Ns As NameSpace, oF As MAPIFolder
Dim xFolder$, xNewName$
Set Ns = Application.GetNamespace("MAPI")
Set oF = Ns.Folders("Rdz Stuff")
List oF

'xFolder = "Elementos Eliminados": xNewName = "Trash"
xFolder = "Correo electrónico no deseado": xNewName = "Spam"

On Error GoTo Cuack
Set oF = oF.Folders(xFolder)
oF.Name = xNewName
Exit Sub
Cuack:
Debug.Print Err.Description
End Sub

And it claims that i have not enough permisions..

Thanks a lot!!!
 
Top