vba给服务器发送消息,VBA使用企业微信机器人发送信息

不念不忘少年蓝@ 2022-09-04 04:41 246阅读 0赞

求助大神，现在想用企业微信机器人发送消息，但是在网上找到的教程不知道怎么改，小白表示看不懂，，还请大神帮助。。

企业微信机器人 地址 https://qyapi.weixin.qq.com/cgi-bin/webhook/send?key=fdab73c1-5820-43bf-ba68-9cc0ff084557

网上找到的VBA程式

Dim Url As String

Const CorpID As String = "abc123456789"  '企业在企业微信ID

Dim Secret As String

Const SendText As String = "\{""touser"": ""成员ID"",""toparty"": ""部门ID"",""totag"": ""标签ID"",""msgtype"": ""text"",""agentid"": 1000040,""text"" : \{ ""content"":  ""消息内容""\},""safe"":0\}"

Const ErrCode As String = """errcode"":0,""errmsg"":""ok"""

Function Token(CorpID As String, Secret As String) As String

'获取Token 提醒一天只能获取 2000次，最好获取后保存方便调用

Secret = ""    '用于发送消息的应用Secret

Dim http

Set http = CreateObject("MSXML2.ServerXMLHTTP")

Url = "https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid=" & CorpID & "&corpsecret=" & Secret & ""

http.Open "get", Url, False 'post get 都可以

http.send ""

If http.Status = 200 Then

Token = http.responseText

End If

'Debug.Print Token

'分解

If InStr(Token, "access\_token") > 1 Then

Token = Split(Token, ",")(2)

'Debug.Print Token

Token = Split(Token, ":")(1)

'Debug.Print Token

Token = Replace(Token, """", "")

' Debug.Print Token

Else

Token = ""

End If

End Function

Function SendMsg(Str1 As String) As String

'发消息

Dim http

Secret = ""    '用于发送消息的应用Secret

TokenStr = Token(CorpID, Secret)

Set http = CreateObject("MSXML2.ServerXMLHTTP")

Url = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access\_token=" & TokenStr & ""

http.Open "Post", Url, False

http.send Str1

rs = http.responseText  '返回值

If http.Status = 200 Then

Str2 = http.responseText

End If

If InStr(Str2, ErrCode) = 0 Then MsgBox "错误：" & SendMsg

End Function

Sub SendQWMsg()

If MsgBox("确认发送企微消息吗?", vbYesNo, "请选择") = vbYes Then

Dim Str1 As String

TokenStr = Token(CorpID, Secret)

'Debug.Print TokenStr

With Sheet1

Str0 = ""

For r = 4 To 100    '发送列表

Str1 = Replace(SendText, "成员ID", " 成员ID号 ")

Str1 = Replace(Str1, "部门ID", "@all")

Str1 = Replace(Str1, "标签ID", "@all")

Str1 = Replace(Str1, "1000040", "发送消息的应用id")

Str1 = Replace(Str1, "消息内容", "

消息内容标题

消息内容

如有疑问，可直接回复！

'发送消息

Str1 = SendMsg(Str1)

'切割结果

MyArr = Split(rs, ",")

a = Replace(Replace(MyArr(2), """invaliduser:""", ""), """", "")

Select Case a

Case "invaliduser:"

a = "发送成功"

Case Else

a = "发送失败，失败账号为" & a

End Select

Sheet1.Cells(r, 4) = a  '第四列放发送结果状态

Next r

End With

rs = ""

End If

MsgBox ("发送完成，请检查D列发送状态")

End Sub

vba给服务器发送消息,VBA使用企业微信机器人发送信息

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关企业微信三方开发(四)：发送消息

相关企业微信消息推送使用（新建应用、发送消息）

相关利用微信企业号发送报警信息

相关腾讯企业微信发送消息学习(可用于发送警告等信息)

相关 Java 发送消息模版内容换行（包含微信，企业微信）

相关 vba给服务器发送消息,VBA使用企业微信机器人发送信息

相关微信企业号开发—发送消息（文本、图片、语音）

相关微信模板消息发送

相关微信自动发送消息

相关 python发送微信及企业微信消息