如何修改邮箱的英文界面:Exchange2003系列之三

核心提示： 4 现在管理员可以访问M:/Exchtest.com/MBX/下的用户目录了，如下图所示：可以运行一下脚本来把邮箱中的英文文件夹改为中文，如何修改邮箱的英文界面:Exchange2003系列之三(5)，下面这段脚本作者是Amit Zinman,一位令人尊敬的Exchange大师！dim fso,

4 现在管理员可以访问M:/Exchtest.com/MBX/下的用户目录了，如下图所示：

可以运行一下脚本来把邮箱中的英文文件夹改为中文。下面这段脚本作者是Amit Zinman,一位令人尊敬的Exchange大师！

dim fso, shell

set fso = CreateObject("Scripting.FileSystemObject")

runThem("M:")

set fso = nothing

wscript.quit

Sub runThem(xPath)

Dim S

Set f = fso.GetFolder( xPath )

For Each Folder In f.SubFolders

S = folder.name

Select Case S

Case "Inbox"

folder.name = "收件箱"

Case " Contacts "

folder.name = "联系人"

Case " Drafts "

folder.name = "草稿"

Case " Journal "

folder.name = "日记"

Case " Calendar "

folder.name = " 日历"

Case " Tasks "

folder.name = "任务"

Case " Sent Items "

folder.name = "已发送邮件"

Case " Deleted Items "

folder.name = "已删除邮件"

Case " Notes "

folder.name = "便笺"

Case " Outbox "

folder.name = "发件箱"

Case " Junk E-Mail "

folder.name = "垃圾邮件"

End Select

Call runThem(Folder)

Next 'Folder

End Sub

任务完成，现在所有用户登录OWA后都是中文界面。

本文出自 “岳雷的微软网络课堂” 博客，请务必保留此出处http://yuelei.blog.51cto.com/202879/74839