☰

更改 Outlook 2007 中的默认垃圾邮件文件夹

tag-icon • tag-icon microsoft-outlook-2007
更改 Outlook 2007 中的默认垃圾邮件文件夹

我以前使用的旧垃圾邮件过滤程序创建了一个垃圾邮件文件夹。当我从 Outlook 2003 升级到 2007 时，Outlook 创建了一个名为“垃圾邮件 1”的新文件夹。现在，在我们迁移到新的 Exchange 服务器后，我现在有一个“垃圾邮件”文件夹和现有的“垃圾邮件 1”文件夹。有没有办法将默认的 Outlook 垃圾邮件文件夹改回“垃圾邮件”？

答案1

要快速重置所有预定义文件夹名称：

打开“开始 → 运行”（或“命令提示符”）。运行以下命令：

reg 添加“HKCU\SOFTWARE\Microsoft\Office\12.0\Outlook\Setup”/v ResetFolderNames /t reg_dword /d 1 /f

或者：

“C:\Program Files\Microsoft Office\OFFICE12\outlook”/resetfoldernames

不同的来源列出了这两种方法。我还没有尝试过其中任何一种方法。

要重命名单个文件夹：

  1. 将当前存在的“垃圾邮件”重命名为其他名称。
  2. 安装微软首席数据官。
  3. 在 Outlook 中，打开工具 → 宏 →Visual Basic 编辑器。
  4. 在 Visual Basic 窗口中，打开工具 →参考，并启用“Microsoft CDO 1.2.1”条目。（单击“确定”。）
  5. 在 VB 窗口左侧树中，打开项目 1 → Microsoft Office Outlook →此 Outlook 会话
  6. 粘贴以下脚本（最初来自 MicrosoftKB831363) 并运行它。
Sub CDORenameFolder()
    Dim outlookApp As Outlook.Application
    Dim outlookSession As Outlook.NameSpace
    Dim cdoSession As MAPI.Session
    Dim folder As Outlook.MAPIFolder
    Dim cdoFolder As MAPI.folder
    Dim newName As String

    Set outlookApp = New Outlook.Application
    Set outlookSession = outlookApp.Session
    Set cdoSession = New MAPI.Session
    cdoSession.Logon ShowDialog:=False, NewSession:=False

    Set folder = outlookSession.PickFolder
    Set cdoFolder = cdoSession.GetFolder(folder.EntryID, folder.StoreID)

    newName = InputBox(("Rename '" + cdoFolder.Name + "' to:"), "Rename folder", cdoFolder.Name)
    If newName <> "" Then
        cdoFolder.Name = newName
        cdoFolder.Update
    End If

    cdoSession.Logoff
    Set cdoSession = Nothing
    Set outlookSession = Nothing
    Set outlookApp = Nothing
End Sub

相关内容