VBA设置每周同一时间的经常性外出

我已经改变了我的工作时间，所以我不再在星期五从12点到5点工作，我需要设置一个自动离开办公室的回复，在每个星期五启用这些时间。我找不到执行此操作所需的代码。我在365办公室

我已经搜索了这段代码，但找不到任何我尝试过的示例

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

---

Outlook Office时间范围只能使用EWS设置。旧版本的Exchange（即CD 1.21的设计目的）只能打开或关闭OOF；不支持时间范围

---

但是，即使在最新版本的Exchange中，OOF也不能作为定期模式安排，您必须手动执行此操作。

Outlook Office时间范围只能使用EWS设置。旧版本的Exchange（即CD 1.21的设计目的）只能打开或关闭OOF；不支持时间范围

---

但是，即使在最新版本的Exchange中，OOF也不能作为重复模式安排，您必须手动执行此操作。

是否收到任何特定的错误消息？目前，您的

If

语句不起作用-它要么需要全部为一行（

If MsgBox（“您想打开外出助手吗？”，vbYesNo，“激活外出助手”）=vbYes Then

），要么在

，

后面有一个连续字符（

）。此外，您的代码不包含任何日期/时间检查，这可能是一个很好的开始。此外-根据问题，您可能希望检查您尝试执行的操作是否需要访问Exchange Web服务谢谢，我仍然收到这一行的语法错误：If MsgBox(“您想打开外出助手吗？”，vbYesNo，“激活外出助手”）=vbYes那么我该如何修复它？啊，刚才注意到您已将正确的双引号（

“

）替换为卷曲的（

”和“

）-将它们更正为键盘上的直截了当的错误，它应该可以解决该问题。我现在收到错误：运行时错误'424'：需要对象您是否收到任何特定的错误消息？目前，您的

If

语句无法工作-它或者需要全部为一行（

If MsgBox(“是否要打开外出助手？”，vbYesNo，“激活外出助手”）=vbYes-Then

），或具有连续字符（

。

）在

，

之后。此外，您的代码不包含任何日期/时间检查，这可能是一个很好的开始。此外-根据问题，您可能希望检查您尝试执行的操作是否需要访问Exchange Web服务谢谢，我仍然收到这一行的语法错误：如果MsgBox（“您想打开外出助手吗？”，vbYesNo，“激活外出助手”）=vbYes，那么我该如何修复它？啊，刚才注意到您已将正确的双引号（

“

）替换为卷曲的双引号（

”和“

）-将它们更正为键盘上的直接代码，它应该可以解决该问题。问题解决了。我现在收到错误：运行时错误“424”：需要对象我可以修复上面的代码，以便在我退出outlook时设置一个按钮打开它，这样至少在我离开时它会提示我打开它吗？这就是它要做的，but我遇到运行时错误424-需要对象，我不确定为什么？你确定安装了CDO 1.21吗？你可以手动下载它，因为Outlook不再安装它。@MattD你知道错误消息出现在哪一行吗？我是否可以修复上面的代码，以便它在我退出Outlook时设置一个按钮打开它，这样至少它会提示我打开它当我离开时？这就是它要做的，但是我得到一个运行时错误424-需要对象，我不确定为什么？你确定安装了CDO 1.21吗？你可以手动下载它，因为Outlook不再安装它。@MattD你知道在哪一行收到错误消息吗？