是否可以从Excel宏通过Microsoft团队发送消息？

Sub SendMessageToTeams()
    Dim url As String
    Dim message As String
    Dim accessToken As String
    
    ' 设置消息内容
    message = "这是一条来自Excel宏的消息！"
    
    ' 设置Microsoft Graph API的请求URL
    url = "https://graph.microsoft.com/v1.0/teams/{team-id}/channels/{channel-id}/messages"
    
    ' 获取访问令牌
    accessToken = GetAccessToken()
    
    ' 发送HTTP请求
    Dim xmlhttp As Object
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    
    xmlhttp.Open "POST", url, False
    xmlhttp.setRequestHeader "Authorization", "Bearer " & accessToken
    xmlhttp.setRequestHeader "Content-Type", "application/json"
    
    Dim jsonBody As String
    jsonBody = "{""body"": {""content"": """ & message & """}}"
    
    xmlhttp.send jsonBody
    
    ' 处理响应
    If xmlhttp.Status = 201 Then
        MsgBox "消息发送成功！"
    Else
        MsgBox "消息发送失败！"
    End If
End Sub

Function GetAccessToken() As String
    ' 在此处实现获取访问令牌的逻辑
    ' 可以使用Azure AD进行身份验证，获取访问令牌
    ' 这里省略具体实现细节
End Function