vba 调用企业微信上传临时素材接口并上传文件

浙江绍兴deng

kingpwfl 发表于 2019-5-23 15:28
同问题，你搞定没？

我已经搞定了，代码在下面，可以参考

kingpwfl

我试下，哥们厉害。

kingpwfl

发你应用，看看，我怎么还是不行了
31874445@qq.com

media888

请教老师，怎样实现发送“正常”两字 发送到  部门ID：34         账号：    WuZhiGang

（企业ID和应用Secret多有了）

浙江绍兴deng

kingpwfl 发表于 2019-5-31 22:04
发你应用，看看，我怎么还是不行了

代码给我看看

浙江绍兴deng

media888 发表于 2019-6-3 08:56
请教老师，怎样实现发送“正常”两字 发送到  部门ID：34         账号：    WuZhiGang

（企业ID和应用S ...

http://club.excelhome.net/thread-1324912-1-1.html

浙江绍兴deng

浙江绍兴deng 发表于 2019-6-3 14:54
http://club.excelhome.net/thread-1324912-1-1.html

你可以看看这个，这个里面写的很详细

media888

不是很明白，但是改成下面代码仅然成功了

Sub SendQWMsg()                                       
If MsgBox("确认发送企微消息吗?", vbYesNo, "请选择") = vbYes Then                                       
Dim Str1 As String                                       
TokenStr = Token(CorpID, Secret)                                       
'Debug.Print TokenStr                                       
With Sheet1                                       
Str0 = ""                                       
               
Str1 = Replace(SendText, "成员ID", "WuZhiGang")                                       
Str1 = Replace(Str1, "部门ID", "@all")                                       
'Str1 = Replace(Str1, "标签ID", "@all")                                       
Str1 = Replace(Str1, "1000040", "1000004")                                       
Str1 = Replace(Str1, "消息内容", "正常")                                       
'发送消息                                       
Str1 = SendMsg(Str1)                                       
'切割结果                                       
                                       
MsgBox ("发送完成,请检查D列发送状态")                                       
End Sub                                       
                                       

fincat

依据9楼的代码，成功上传了