以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]这样定义为什么会报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132386)

--  作者:智友软件工作室
--  发布时间:2019/3/20 22:30:00
--  [求助]这样定义为什么会报错

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190320222733.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/3/20 22:48:00
--  
Dim wechatServ As WeChat.WeChatPublicNo = WeChat.WeChatServer.Server("wx506f113977c3a8a3" )
Dim a = wechatserv.sendmsgcontroller
a.SendTemplateMessage("")

--  作者:智友软件工作室
--  发布时间:2019/3/21 0:37:00
--  
返回码按通用方法提示错误

If s.Success Then

    msgbox("已发送消息")

Else

    msgbox("发送失败:" & s.ErrorMessage)

End If


--  作者:有点蓝
--  发布时间:2019/3/21 8:50:00
--  
什么意思?
--  作者:智友软件工作室
--  发布时间:2019/3/21 9:19:00
--  

 

 MmsgResult这应该是他的返回值,我用通用返回值(MmsgResult)看返回结果会出错


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190321091618.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/3/21 9:25:13编辑过]

--  作者:有点蓝
--  发布时间:2019/3/21 10:21:00
--  
Dim wechatServ As WeChat.WeChatPublicNo = WeChat.WeChatServer.Server("wx506f113977c3a8a3" ) 
Dim a = wechatserv.sendmsgcontroller 
dim s  = a.SendTemplateMessage("")

If s.Success Then

    msgbox("已发送消息")

Else

    msgbox("发送失败:" & s.ErrorMessage)

End If