K3 WISE短信接口开发案例
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
'这个需要验证移动HR的站点
'关外部调用发送短信的接口如下，请参考：
Set inVect=new KFO.Vector
Set InDict=New KFO.Dictionary
InDict("Recipients")="CEO,CHO" '消息接收人K3用户名或者手机号
InDict("SMContent")="请审批！"'消息内容
InDict("PropsString") = MMTS.PropsString'K3登录连接串 如果有登录K3，则此项无需赋值，此行代码可去掉
inVect.Add InDict
Set oSMS = CreateObject("KDMobileOpen.MobileOpen")
oSMS.SmsSendForK3 inVect '发送短信
'这个则只需要验证移动商务的站点
Dim vctBillInfo As KFO.Vector
Dim dctInfo As KFO.Dictionary
Dim oSMS As Object
Set vctBillInfo = New KFO.Vector
Set dctInfo = New KFO.Dictionary
dctInfo("Recipients") = "CEO,CHO" '消息接收人K3用户名或者手机号
dctInfo("SMContent") = "请审批！" '消息内容
dctInfo("SmsIsBack") = 0 '移动商务信息不可回复
dctInfo("PropsString") = MMTS.Propstring 'K3连接串
vctBillInfo.Add dctInfo
Set oSMS = CreateObject("KDMobileOpen.MobileOpen")
oSMS.SmsSendForBillCheck vctBillInfo
Set oSMS = Nothing