☰

Microsoft Outlook – 收藏夹快捷方式在重新启动时消失

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2013 favorites
Microsoft Outlook – 收藏夹快捷方式在重新启动时消失

当我将邮件帐户的快捷方式添加到收藏夹文件夹，它们会在 Outlook 重新启动时被删除。

我正在使用 Microsoft Outlook 2013。

由于我在 Outlook 中配置了多个邮件帐户，因此我更喜欢收件箱快捷方式显示在收藏夹文件夹。寻求解决方案以保持添加到的快捷方式收藏夹即使重新启动应用程序后，文件夹仍然会保留。

答案1

一个合理可接受的答案是这博客。

我按照说明进行操作，即使在重新启动 Microsoft Outlook 后仍保持快捷方式不变。

在 Windows 10 中，该Outlook.xml文件可以在

C:\Users\<YourUserAccount>\AppData\Roaming\Microsoft\Outlook

确保备份原始Outlook.xml文件，以防以后需要。

答案2

我在 Outlook 2016 中遇到了这个问题。我的个人资料中只有 IMAP 帐户。当我添加 Exchange 帐户（outlook.com、hotmail.com）时，收藏夹快捷方式在重新启动 Outlook 时不再消失。

答案3

Wayback machine 是你的朋友：

Outlook 吞噬了我的快捷方式！（Outlook 中的收藏夹和日历消失了） https://web.archive.org/web/20160404120149/http://blog.palehorse.net/2007/09/26/outlook-ate-my-favorite-shortcuts/

…两种可能的解决方案！

  1. 您可以创建新的邮件配置文件。不幸的是，这会重置您自定义的所有内容，因此，在我看来，这是最后的手段。

  2. 您可以导航到 Outlook 存储设置的文件夹。在 Windows XP 中，其默认为：

    C:\Documents and Settings\<username>\Application Data\Microsoft\Outlook

    在此文件夹中，您将找到一个名为展望.xml。听起来很无害，你不觉得吗？这就是导致所有麻烦的文件！你应该完全退出 Outlook，然后重命名文件（千万不要直接删除，这很糟糕，我的好潘！）。重新启动 Outlook，你会发现你所有的收藏夹和日历都不见了。将它们重置为你想要的方式，再次退出 Outlook 并重新启动。 噗—— 他们回来了！

现在问题似乎是这个文件出现了某种损坏。……

用户“Asa”的评论建议关闭 Outlook 并运行 OUTLOOK.EXE /resetnavpane

答案4

我最近也遇到了这个问题（共享邮箱中的收藏夹总是消失），我通过使用每次启动 Outlook 时自动运行的 VBA 程序解决了这个问题。当然，如果您有静态收藏夹文件夹，这种方法效果最好。

因此，在 Outlook 中，请按如下方式操作：

  • 使能够开发人员菜单
    • 右键单击菜单项并选择自定义功能区...
    • 在右栏下主要标签， 检查开发人员物品
  • 选择开发人员 > Visual Basic
  • 这微软 Visual Basic 应用程序窗户打开了
  • 单击 Project1 > Microsoft Outlook 对象 > 前面的加号此 Outlook 会话
    • 将代码放在此位置
    • 并命名你的程序应用程序启动()，每次启动 Outlook 时都会执行此操作（请参阅下面的步骤）
  • 双击ThisOutlookSession（或右键单击它并选择查看代码）
  • 确保 Outlook 中已启用宏：
    • 开发人员 >宏安全
    • 选择启用所有宏 (...)
    • 2 次确定
  • 关闭并重新打开 Outlook
  • 瞧瞧

然后是程序本身：

  • 第 16 行和第 17 行是默认文件夹的示例 - 如果要使用默认收件箱中的文件夹，请取消注释它们
  • 默认文件夹名称的概述可以在这里找到：https://www.slipstick.com/developer/working-vba-nondefault-outlook-folders
  • 第 21 行和第 21 行是 Outlook 数据文件 (.pst 或 .ost) 中的文件夹示例，只需使用邮箱和文件夹的可读名称即可
Private Sub Application_Startup()
     Dim objNamespace As NameSpace
     Dim objInbox As Folder
      
     Dim objPane As NavigationPane
     Dim objModule As MailModule
     Dim objGroup As NavigationGroup
     Dim objNavFolder As NavigationFolder
      
     On Error GoTo ErrRoutine
      
     ' First, retrieve the default Inbox folder.
     Set objNamespace = Application.GetNamespace("MAPI")
     
     ' default folders
     ' Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox)
     ' Set objSentMail = objNamespace.GetDefaultFolder(olFolderSentMail)
     
     ' folders from shared mailbox or Outlook Data File (.pst or .ost)
     ' Simply use the readable names of the mailbox and the folders in the below lines:
     Set objInbox = objNamespace.Folders("My old mailbox").Folders("Postvak IN")
     Set objSentMail = objNamespace.Folders("My old mailbox").Folders("Verzonden items")
      
     ' Get the NavigationPane object for the currently displayed Explorer object.
     Set objPane = Application.ActiveExplorer.NavigationPane
     ' Get the mail module from the Navigation Pane.
     Set objModule = objPane.Modules.GetNavigationModule(olModuleMail)
     ' Get the "Favorite Folders" navigation group from the mail module.
     With objModule.NavigationGroups
         Set objGroup = .GetDefaultNavigationGroup(olFavoriteFoldersGroup)
     End With
      
     ' Add the folders you have selected above, to the "Favorite Folders" navigation group.
     Set objNavFolder = objGroup.NavigationFolders.Add(objInbox)
     Set objNavFolder = objGroup.NavigationFolders.Add(objSentMail)
      
 EndRoutine:
     On Error GoTo 0
     Set objNavFolder = Nothing
     Set objGroup = Nothing
     Set objModule = Nothing
     Set objPane = Nothing
     Set objNamespace = Nothing
     Exit Sub
  
 ErrRoutine:
     MsgBox Err.Number & " - " & Err.Description, _
         vbOKOnly Or vbCritical, _
         "AddToFavoritesFolder"
 End Sub

相关内容