如何实现Outlook个性化签名自动展示本人非在岗日期

核心逻辑是把非在岗日期作为统一维护的数据源，借助Outlook原生能力在邮件发送/新建环节动态拼接签名内容，不需要每周手动修改签名文件：

• 数据源统一用Outlook自带日历维护，单独建「非在岗」分类标记所有无法响应的日期，后续调班、改时间只需要改日历条目，完全不碰签名设置
• 触发时机选「新建邮件/回复转发邮件」的自动触发节点，自动拉取设定时间范围内（覆盖本月+下月，即当前日期往后60天）的非在岗日程，拼接到固定签名模板后自动插入邮件末尾
• 全程不需要借助第三方工具，所有能力都是Outlook自带，不存在兼容问题

按自己用的Outlook版本选对应方案即可，新手优先选零代码方案。

零代码方案（适配Microsoft 365订阅版Outlook，含桌面端、网页端，5分钟配置完成） #

• 第一步：打开Outlook日历，新建名为「非在岗」的日历分类，设置任意识别度高的颜色，把本月、下月所有无法在岗办公的日期，都在这个分类下建全天日程，标记状态为「外出」。后续时间调整直接增删这个分类下的日历条目即可。
• 第二步：打开Outlook签名设置页，在签名编辑区插入「日历状态」内置组件，设置组件筛选规则为「仅展示分类为非在岗的外出日程」，展示时间范围设为「未来60天」。
• 第三步：在组件上方加固定提示文案：注：我当前为兼职办公模式，以下日期非在岗、无法及时响应工作：，再把你固定的个人签名内容（姓名、岗位、联系方式等）放在组件上方或下方，保存签名即可。
• 配置完成后，这个组件会自动和日历同步，只要日历里的非在岗日期有变动，发信时签名里的日期列表会自动更新，不需要手动改签名。

进阶自定义方案（适配2016及以上版本的旧版Outlook桌面端，灵活度更高） #

如果用的是买断制的旧版Office，没有内置动态日历组件，可以用VBA宏实现一样的效果：

• 第一步：和零代码方案第一步一致，先在日历里建好「非在岗」分类，维护好所有无法在岗的日期。
• 第二步：打开Outlook后按Alt+F11调出VBA编辑器，在左侧项目栏找到ThisOutlookSession模块，粘贴以下基础代码，可根据自己的签名内容、展示范围调整参数：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim sigFix As String
    Dim calFolder As Outlook.Folder
    Dim calItems As Outlook.Items
    Dim apptItem As Outlook.AppointmentItem
    Dim offDaysList As String
    Dim scanRangeEnd As Date
    
    ' 配置项：可根据需要修改
    scanRangeEnd = DateAdd("d", 60, Date) ' 扫描未来60天的日程，覆盖本月+下月
    sigFix = "这里替换成你的固定签名内容：姓名、职位、联系方式等" & vbCrLf & _
             "----------------------------------------" & vbCrLf & _
             "*注：我当前为兼职办公模式，以下日期非在岗、无法及时响应工作：*" & vbCrLf
    offDaysList = ""
    
    ' 读取日历内容筛选非在岗日期
    Set calFolder = Application.Session.GetDefaultFolder(olFolderCalendar)
    Set calItems = calFolder.Items
    calItems.IncludeRecurrences = True
    calItems.Sort "[Start]"
    
    For Each apptItem In calItems
        If apptItem.Categories = "非在岗" And apptItem.AllDayEvent = True Then
            If apptItem.Start >= Date And apptItem.Start <= scanRangeEnd Then
                offDaysList = offDaysList & Format(apptItem.Start, "yyyy年mm月dd日") & "、"
            End If
        End If
    Next
    
    ' 拼接最终签名插入邮件
    If Len(offDaysList) > 0 Then
        offDaysList = Left(offDaysList, Len(offDaysList) - 1)
        Item.HTMLBody = Item.HTMLBody & "<br><br>" & Replace(sigFix & offDaysList, vbCrLf, "<br>")
    End If
End Sub

• 第三步：把Outlook宏权限设置为「对已签名的宏发出通知」，给这段代码加上本地数字签名后重启Outlook即可生效。后续发信时会自动扫描日历更新签名里的非在岗日期。

• 零代码方案的动态组件会自动过滤标记为「私人」的日程，不用担心私人日程被展示到对外邮件里。
• VBA方案如果要调整签名样式（比如给非在岗日期加红色高亮、调整行间距），可以直接修改代码里拼接HTML的部分，不需要额外改其他配置。
• 两种方案都只需要维护一次日历数据源，后续不需要每周打开签名设置做修改。

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