如何在 Outlook 关闭时自动打开外出？

Question

当我关闭应用程序时，是否可以让 Outlook 2010 打开“自动回复”功能？我喜欢在一天结束时打开“外出”，但匆忙时很容易忘记。

Answer 1

我真的试图为您完成这项工作，但我了解到 Outlook 2010 不再支持 CDO 1.2.1，而且我不是程序员，我没有深入了解以另一种方式对其进行编码。尽管不受 Microsoft 支持且不推荐（为什么他们会提到它？？），但如果您有 Outlook 2007，则可以在升级到 Outlook 2010 之前安装 CDO。

http://support.microsoft.com/kb/2028411

我将在 Outlook 2003/2007 中发布如何执行此操作，以防有人遇到此问题。我刚刚测试了这个。我还将发布 Outlook 2010 的其他步骤，假设您可以修复代码。

对于 Outlook 2003/2007

1. 仅对于 Outlook 2007，您必须安装 CDO，否则代码将失败：http : //www.microsoft.com/downloads/en/details.aspx? familyid=2714320d-c997-4de1-986f-24f081725d36&displaylang=en

2. 假设您公司的组策略没有覆盖这一点，更改Tools? Macros? Security到No Security Check for macros。

3. 去Tools？Macros? Visual Basic Editor.

4. 单击 Visual Basic 图标，然后单击F2以打开对象浏览器。

5. 在左窗格中的新项目中展开它，直到您看到ThisOutlookSession并双击它。

6. 将以下代码剪切并粘贴到刚刚打开的代码窗口中并保存：

   Private Sub Application_Quit()
       Dim objMAPISession As Object
       Set objReminders = Nothing
       If MsgBox("Would you like to turn the Out of Office Assistant on?", vbYesNo, "Activate Out of Office Assistant") = vbYes Then
           Set objMAPISession = CreateObject("MAPI.Session")
           objMAPISession.Logon , , True, False
           objMAPISession.OutOfOffice = True
           objMAPISession.Logoff
       End If
       Set objMAPISession = Nothing
   End Sub
   

7. 关闭并打开 Outlook。

8. 它会给你一条关于宏的消息。启用它们。

对于 Outlook 2010

如果您可以修复代码，这里是 Outlook 2010 的步骤。我包含它们是因为许多项目的位置已更改，并且可能很难找到。在当前代码中，我还指出了失败的步骤。

1. 假设您公司的组策略没有覆盖这一点，更改File? Options? Trust Center? Trust Center Settings? Macro Settings到Enable all macros。

2. 首先启用Developer选项卡File？Options? Customize Ribbon，Developer在右栏中检查。

3. 单击 Visual Basic 图标，然后按 F2 打开对象浏览器。

4. 转到Classes（左栏）？ThisOutlookSession并双击它。

5. 将以下代码剪切并粘贴到刚刚打开的代码窗口中并保存：

   Private Sub Application_Quit()
       Dim objMAPISession As Object
       Set objReminders = Nothing
       If MsgBox("Would you like to turn the Out of Office Assistant on?", vbYesNo, "Activate Out of Office Assistant") = vbYes Then
           Set objMAPISession = CreateObject("MAPI.Session") THIS IS THE STEP THAT FAILS
           objMAPISession.Logon , , True, False
           objMAPISession.OutOfOffice = True
           objMAPISession.Logoff
       End If
       Set objMAPISession = Nothing
   End Sub
   

6. 关闭并打开 Outlook。

7. 返回Developer选项卡？Macros图标。它会给你一条关于宏的消息。启用它们。