VBA能给Windows Teams里指定人员发送消息吗？

sampsonpon

VBA能给Windows Teams里指定人员发送消息吗？谁有这方面的实际应用

Peny2020

你不如用automate设个流更好，反正都是微软里的一个账号可以相连

sampsonpon

Peny2020 发表于 2024-7-10 10:00
你不如用automate设个流更好，反正都是微软里的一个账号可以相连

不了解这个

边缘码农

没接触过这方面的内容，不过问了一下百度，Ta是这样回答的：


VBA 给Windows Teams里指定人员发送消息
要在VBA中给Windows Teams里指定人发送消息，可以使用Microsoft Teams API。以下是一个使用VBA发送简单消息到Teams频道的示例代码：

1. Sub SendMessageToTeams()
   
2.     ' 定义变量
   
3.     Dim Http As Object
   
4.     Dim url As String
   
5.     Dim json As String
   
6.     Dim channelId As String
   
7.     Dim message As String
   
8.    
   
9.     ' 初始化HTTP请求对象
   
10.     Set Http = CreateObject("MSXML2.XMLHTTP")
    
11.    
    
12.     ' 设置必要的参数
    
13.     url = "https://graph.microsoft.com/v1.0/teams/<TeamId>/channels/<ChannelId>/messages"
    
14.     channelId = "<ChannelId>" ' 需要替换为实际的ChannelId
    
15.     message = "这是一条测试消息" ' 需要发送的消息内容
    
16.    
    
17.     ' 构建JSON格式的消息
    
18.     json = "{""body"":{" & Chr(34) & "content" & Chr(34) & ": """ & message & """}}"
    
19.    
    
20.     ' 配置HTTP请求
    
21.     With Http
    
22.         .Open "POST", url, False
    
23.         .SetRequestHeader "Content-Type", "application/json"
    
24.         .SetRequestHeader "Authorization", "Bearer <AccessToken>" ' 需要替换为有效的访问令牌
    
25.         .Send (json)
    
26.     End With
    
27.    
    
28.     ' 输出响应
    
29.     MsgBox Http.responseText
    
30. End Sub

复制代码

在使用此代码之前，请确保您已获取有效的Team ID、Channel ID和Azure AD访问令牌。访问令牌需要具有对Microsoft Graph API的权限。

获取Team ID和Channel ID，它们可以在Teams的相应频道的URL中找到。

获取访问令牌，需要在Azure AD中配置应用程序以获取所需的权限，并使用应用程序凭据来获取令牌。

请注意，这个示例是一个简单的发送消息的示范，您可能需要根据自己的需求进行适当的修改和错误处理。

提示：AI自动生成，仅供参考

Peny2020

sampsonpon 发表于 2024-7-10 10:19
不了解这个

各种有关teams的自动流
下面是网址
https://make.powerautomate.com/