如何通过编程获取团队成员的Out of Office日程以生成排班表？

一、Outlook VBA 问题排查与修正 #

如果之前用VBA失败，大概率是权限配置错误或API调用方式不对，试试下面的修正方案：

• 先确保团队成员已给你共享日历权限，或者你有Exchange环境下的全局/日历读取权限。
• 使用GetSharedDefaultFolder和GetOOFSettings来正确获取OOF状态，示例代码：

Sub GetTeamOOFStatus()
    Dim olApp As Outlook.Application
    Dim olNS As Outlook.Namespace
    Dim recipient As Outlook.Recipient
    Dim sharedCal As Outlook.Folder
    Dim teamMembers As Variant
    Dim member As Variant
    Dim oofSettings As Outlook.OofSettings
    
    Set olApp = New Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
    teamMembers = Array("alice@yourdomain.com", "bob@yourdomain.com") '替换为实际成员邮箱
    
    For Each member In teamMembers
        On Error Resume Next
        Set recipient = olNS.CreateRecipient(member)
        recipient.Resolve
        If recipient.Resolved Then
            ' 获取共享日历（可选，用于验证权限）
            Set sharedCal = olNS.GetSharedDefaultFolder(recipient, olFolderCalendar)
            If Err.Number = 0 Then
                ' 获取OOF设置
                Set oofSettings = recipient.AddressEntry.GetExchangeUser.GetOOFSettings
                Select Case oofSettings.State
                    Case olOOFStateEnabled
                        Debug.Print member & ": 已启用OOF"
                        Debug.Print "  开始时间: " & oofSettings.StartTime
                        Debug.Print "  结束时间: " & oofSettings.EndTime
                    Case olOOFStateDisabled
                        Debug.Print member & ": 未启用OOF"
                    Case olOOFStateScheduled
                        Debug.Print member & ": 计划启用OOF"
                        Debug.Print "  开始时间: " & oofSettings.StartTime
                        Debug.Print "  结束时间: " & oofSettings.EndTime
                End Select
            Else
                Debug.Print member & ": 无权限访问日历，请检查共享设置"
                Err.Clear
            End If
        Else
            Debug.Print member & ": 无法解析收件人"
        End If
        On Error GoTo 0
    Next member
End Sub

• 注意：启用宏时要选择“启用所有宏”（仅在信任的环境下），且仅适用于Exchange账户，POP/IMAP账户无法获取他人OOF状态。

二、Graph API 正确实现步骤 #

Graph API失败通常是权限范围不足或请求路径错误，按以下步骤调整：

1. 配置权限：

   • 如果你是后台服务，申请应用权限Calendars.Read或Calendars.Read.Shared；
   • 如果是用户端应用，申请委托权限Calendars.Read或Calendars.Read.Shared；
   • 确保在Azure AD中已授予管理员同意。

2. 获取用户OOF设置：
   用GET请求获取单个用户的自动回复设置，请求路径：

   GET /users/{user-id-or-mail}/mailboxSettings/automaticRepliesSetting
   

   返回的JSON中，status字段表示OOF状态（scheduled/enabled/disabled），scheduledStartDateTime和scheduledEndDateTime是时间段。

3. 批量获取团队成员数据：
   遍历团队成员的邮箱或ID，逐个发起请求，注意不要超过Graph API的调用频率限制（默认每分钟1000次）。

4. 示例PowerShell测试代码：

# 替换为你的访问令牌和成员邮箱
$accessToken = "eyJ0eXAiOiJKV1QiLCJhbGciOiJSUzI1Ni..."
$memberMail = "charlie@yourdomain.com"

$response = Invoke-RestMethod -Uri "https://graph.microsoft.com/v1.0/users/$memberMail/mailboxSettings/automaticRepliesSetting" `
                              -Headers @{Authorization = "Bearer $accessToken"}

Write-Host "用户: $memberMail"
Write-Host "OOF状态: $($response.status)"
if ($response.status -eq "scheduled") {
    Write-Host "开始时间: $($response.scheduledStartDateTime.dateTime)"
    Write-Host "结束时间: $($response.scheduledEndDateTime.dateTime)"
}

三、排班表生成方案 #

获取到所有成员的OOF数据后，可以这样生成排班表：

• Excel手动整理：把成员、OOF时间段导入Excel，用条件格式标记缺勤日期（比如当单元格日期在某个成员的OOF区间内时填充灰色）。
• 自动化生成：
  • 用VBA把获取的OOF数据直接写入Excel工作表，自动生成排班表；
  • 用Power Automate串联Graph API和Excel，定时拉取数据并更新表格。

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