如何通过VBA在Outlook Exchange中实现无第三方依赖的OOO自动设置？

你可以直接利用Outlook原生的OutOfOfficeSettings对象来实现Exchange服务器端的外出自动回复，完全不需要依赖Redemption这类第三方库。这个对象直接对接Exchange服务器的设置，即使电脑关机，服务器也会自动触发回复，和手动在Outlook里设置的效果一致。

核心实现代码 #

Sub SetExchangeOOO()
    Dim olNS As Outlook.Namespace
    Dim oMailbox As Outlook.Mailbox
    Dim oOOOSettings As Outlook.OutOfOfficeSettings
    
    ' 获取Outlook命名空间和当前默认邮箱
    Set olNS = Application.GetNamespace("MAPI")
    Set oMailbox = olNS.GetDefaultFolder(olFolderInbox).Parent
    
    ' 获取Exchange外出设置对象（仅支持Exchange账户）
    On Error Resume Next
    Set oOOOSettings = oMailbox.OutOfOfficeSettings
    On Error GoTo 0
    
    If oOOOSettings Is Nothing Then
        MsgBox "当前账户不是Exchange账户，无法设置服务器端自动回复。"
        Exit Sub
    End If
    
    ' 启用OOO并设置时间范围
    oOOOSettings.Enabled = True
    ' 示例：开始日期为明天0点，结束日期为后天18点，可根据变量动态调整
    oOOOSettings.StartTime = DateAdd("d", 1, Date)
    oOOOSettings.EndTime = DateAdd("h", 18, DateAdd("d", 2, Date))
    
    ' 设置内部和外部回复文本
    oOOOSettings.InternalReply = "您好，我目前不在办公室，预计在" & Format(oOOOSettings.EndTime, "yyyy-mm-dd HH:mm") & "返回，紧急事项请联系XXX。"
    oOOOSettings.ExternalReply = "您好，我目前不在办公室，会尽快回复您的邮件，感谢理解。"
    
    ' 保存设置到Exchange服务器
    oOOOSettings.Save
    
    MsgBox "Exchange服务器端外出自动回复已成功设置。"
    
    ' 释放对象
    Set oOOOSettings = Nothing
    Set oMailbox = Nothing
    Set olNS = Nothing
End Sub

关键说明 #

• Exchange账户限制：这个方法仅适用于Exchange邮箱账户，本地POP/IMAP账户不支持服务器端OOO，只能用本地宏实现（但电脑关机后失效）。
• 日期变量灵活调整：你可以根据需求替换StartTime和EndTime的赋值逻辑，比如从Excel单元格读取日期、或者通过自定义变量计算时间范围。
• 权限与宏设置：需要确保Outlook启用了宏，且代码运行时拥有Exchange账户的基础权限（普通用户操作自己的账户无需额外权限）。
• 错误处理：代码中加入了简单的判断逻辑，避免非Exchange账户运行时出现报错。

如果需要从外部数据源读取日期变量，比如Excel，可参考以下片段（需提前引用Microsoft Excel对应版本的对象库）：

' 从Excel读取日期的示例
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Open("C:\OOODates.xlsx")
oOOOSettings.StartTime = xlWB.Sheets("Sheet1").Range("A1").Value
oOOOSettings.EndTime = xlWB.Sheets("Sheet1").Range("B1").Value
xlWB.Close SaveChanges:=False
xlApp.Quit
Set xlWB = Nothing
Set xlApp = Nothing

内容的提问来源于stack exchange，提问作者Felipe Vidal