无完整日历权限时，如何通过Outlook VBA或邮件服务器获取他人忙碌状态？

你的VBA代码依赖直接访问目标用户的日历文件夹，这需要对方授予完整的日历访问权限，因此无法获取仅在日程安排助理可见的隐藏标题日历的忙碌信息。要仅获取忙碌时段，不需要直接访问日历，可以通过Exchange服务器的忙闲机制实现，有两种可行方式：

方案一：使用Outlook内置的GetFreeBusy方法 #

NameSpace.GetFreeBusy是Outlook基于Exchange服务器的忙闲查询接口，不需要对方共享完整日历（组织内默认允许此访问权限），可以直接获取用户的时间块忙闲状态。

替换原代码的示例实现： #

Sub printFreeBusy()
    Dim sesh As Outlook.NameSpace
    Set sesh = ThisOutlookSession.Session
    
    Dim target As Recipient
    With sesh.GetSelectNamesDialog
        .AllowMultipleSelection = False
        .ForceResolution = True
        .Display
        Set target = .Recipients.Item(1)
    End With
    
    ' 设置目标日期范围
    Dim startDate As Date, endDate As Date
    startDate = #8/6/2022 1:00:00 AM#
    endDate = #8/6/2022 10:00:00 PM#
    
    ' 获取30分钟间隔的忙闲数据（参数2为时间间隔分钟数）
    ' 返回字符串每个字符代表一个时间块：0=空闲，1=忙碌，2=暂定，3=外出
    Dim freeBusyData As String
    freeBusyData = sesh.GetFreeBusy(target, 30, startDate, endDate)
    
    ' 解析并输出忙闲时段
    Dim i As Integer, currentTime As Date
    currentTime = startDate
    For i = 1 To Len(freeBusyData)
        Dim status As String
        Select Case Mid(freeBusyData, i, 1)
            Case "0": status = "空闲"
            Case "1": status = "忙碌"
            Case "2": status = "暂定"
            Case "3": status = "外出"
        End Select
        Debug.Print currentTime & " - " & DateAdd("n", 30, currentTime) & ": " & status
        currentTime = DateAdd("n", 30, currentTime)
    Next i
End Sub

方案二：直接调用Exchange Web Services (EWS) #

如果需要更详细的忙闲信息（比如忙碌时段的具体类型、是否为会议），可以直接与Exchange服务器交互，使用EWS的GetUserAvailability接口。VBA中可以通过HTTP请求调用EWS，或添加Exchange Web Services Managed API引用实现。

这种方式完全绕开Outlook的日历文件夹权限限制，直接从邮件服务器获取授权范围内的忙闲数据，符合你“通过原始邮件服务器实现”的需求。

原代码问题说明 #

原代码中targetCalendar.Items.Restrict需要直接读取日历项数据，而当对方仅开放忙闲可见权限（未共享完整日历）时，Outlook会限制VBA对该日历文件夹的访问，这就是你遇到权限问题的核心原因。

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