源代码:
Dim product As String = "Dysmsapi" '无需更改,官方名称
Dim domain As String = "dysmsapi.aliyuncs.com" '无需更改,官方名称
Dim accessId As String = "xxx" '更换为您的AccessKey
Dim accessSecret As String = "xxx" '更换为您的AccessSecret
Dim regionIdForPop As String = "cn-hangzhou" '无需更改,官方名称
Dim profile As Aliyun.Acs.Core.Profile.IClientProfile = Aliyun.Acs.Core.Profile.DefaultProfile.GetProfile(regionIdForPop, accessId, accessSecret)
Aliyun.Acs.Core.Profile.DefaultProfile.AddEndpoint(regionIdForPop, regionIdForPop, product, domain)
Dim acsClient As Aliyun.Acs.Core.IAcsClient = New Aliyun.Acs.Core.DefaultAcsClient(profile)
Dim request As Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsRequest = New Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsRequest()
Dim response As Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsResponse = Nothing
Try
request.PhoneNumbers = "13827126079"
request.SignName = "迈宝伦科技" '更换为您备案的短信签名
request.TemplateCode = "SNS_1234343245" '更换您备案的短信模板
request.TemplateParam = "{""customer"":""123""}" '如果您有可替换的标签,可以设置设置json,也可以注释掉
'request.OutId = "YourID" '这玩意暂时没用
response = acsClient.GetAcsResponse(request)
MessageBox.show(response.Message) '这里输出发送结果."OK"就是行了.
Catch ex As Exception
MessageBox.show("短信代码有问题,请联系技术员")
End Try
我的短信模版有一个 fphm 的参数 ,我写入数据
request.TemplateParam = "{""fphm"":""12345678""}"
返回错误信息 :
模板变量缺少对应参数值
我是哪里写得不对吗?
加好友 
发短信
Post By：2021/3/20 12:10:00 [只看该作者]
