嗨，关于你想在Outlook里设置隔周重复的外出自动回复（比如每隔一周的周一触发）的需求，我整理了可行的方案，分原生设置和VBA脚本两种情况来说：

一、Outlook原生设置（手动变通方案） #

Outlook自带的自动回复功能不管是桌面端还是网页版，默认都只支持每周固定重复或者单一日期范围，没有直接的“隔周”选项。不过咱们可以用个变通方法：创建多个独立的自动回复规则，手动设置交替的日期周期，具体步骤如下：

• 打开Outlook，点击顶部「文件」>「信息」>「自动回复（外出）」
• 在弹出的窗口里选择「只发送一次自动回复」，然后设置第一个触发周期的开始和结束时间（比如第一周的周一00:00到当日23:59）
• 点击「确定」保存后，重复上述操作，依次设置好后续所有需要触发的隔周日期（比如第三周、第五周的周一）
• 这个方法适合周期固定、且不需要长期无限循环的场景，缺点是需要提前手动规划好所有触发日期

二、VBA脚本方案（自动无限循环） #

如果需要自动循环的隔周回复，原生设置就满足不了啦，这时候可以用VBA脚本来实现，具体操作如下：

1. 打开Outlook，按下Alt + F11快捷键打开VBA编辑器
2. 在左侧「项目」面板里，双击「ThisOutlookSession」，把下面的代码粘贴进去：

Private Sub Application_Startup()
    ' 设置触发的星期几（1=周日, 2=周一, ..., 7=周六），这里设为2即周一
    Dim targetWeekday As Integer
    targetWeekday = 2
    
    ' 检查今天是否是目标星期几，且是隔周的周数（这里用奇周触发，可自行调整）
    Dim currentWeek As Integer
    currentWeek = DatePart("ww", Date, vbMonday)
    
    If Weekday(Date, vbMonday) = targetWeekday And currentWeek Mod 2 = 1 Then
        ' 开启自动回复，可自定义回复内容
        SetOutOfOffice True, "你好，我目前处于外出状态，每隔一周的周一我会集中处理邮件，若有紧急事项请联系XXX。"
    Else
        ' 关闭自动回复
        SetOutOfOffice False, ""
    End If
End Sub

Private Sub SetOutOfOffice(enable As Boolean, replyText As String)
    Dim oAccount As Account
    For Each oAccount In Application.Session.Accounts
        If oAccount.AutoReplySettings.Enabled <> enable Then
            oAccount.AutoReplySettings.Enabled = enable
            oAccount.AutoReplySettings.PlainTextBody = replyText
        End If
    Next oAccount
End Sub

3. 代码自定义说明：
   • 修改targetWeekday的值可以切换触发的星期（比如设为3就是周二）
   • 把currentWeek Mod 2 = 1改成=0，就能切换成偶数周触发
   • 直接修改双引号里的文本，就能自定义你的自动回复内容
4. 保存代码后，重启Outlook，脚本就会在每次启动时自动检查并开启/关闭自动回复啦
   • 如果需要每天自动检查（而不是只在启动时），可以搭配Outlook的提醒功能或者Windows任务计划，定时触发脚本的检查逻辑

备注：内容来源于stack exchange，提问作者sushi