以下内容为程序代码:

1
2 \'短信验证码触发条件
3 If e.DataCol.Name = "状态" Then \'如果是已结帐列的内容变动
4 If e.NewValue = "已发" Then \'而且变动后的值是True(已勾选)
5
6 MessageBox.Show(e.DataRow("验证码") & e.DataRow("电话") & e.DataRow("客户名称")& e.DataRow("重量KG")& e.DataRow("备注")& e.DataRow("联系人"))
7 e.DataRow("发送时间")= Date.Today()
8
9 Dim product As String = "Dysmsapi" \'无需更改,官方名称
10 Dim domain As String = "dysmsapi.aliyuncs.com" \'无需更改,官方名称
11 Dim accessId As String = "LTAI4G1CzZ7Njm1apjn9ngoZ" \'更换为您的AccessKey
12 Dim accessSecret As String = "LV9ZhKnvHX0usMZqQfioEdAvM1pzxT" \'更换为您的AccessSecret
13 Dim regionIdForPop As String = "cn-hangzhou" \'无需更改,官方名称
14
15 Dim profile As Aliyun.Acs.Core.Profile.IClientProfile = Aliyun.Acs.Core.Profile.DefaultProfile.GetProfile(regionIdForPop, accessId, accessSecret)
16 Aliyun.Acs.Core.Profile.DefaultProfile.AddEndpoint(regionIdForPop, regionIdForPop, product, domain)
17 Dim acsClient As Aliyun.Acs.Core.IAcsClient = New Aliyun.Acs.Core.DefaultAcsClient(profile)
18 Dim request As Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsRequest = New Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsRequest()
19 Dim response As Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsResponse = Nothing
20
21
22 Try
23 request.PhoneNumbers = e.DataRow("电话")
24 request.SignName = "ABC商城" \'更换为您备案的短信签名
25 request.TemplateCode = "SMS_204970658" \'更换您备案的短信模板
26 request.TemplateParam = "{""code"":"e.DataRow("验证码")"}" \'如果您有可替换的标签,可以设置设置json,也可以注释掉
27 \'request.OutId = "YourID" \'这玩意暂时没用
28 response = acsClient.GetAcsResponse(request)
29 MessageBox.show(response.Message) \'这里输出发送结果."OK"就是行了.
30 Catch ex As Exception
31 MessageBox.show("短信代码有问题,请联系技术员")
32 End Try
33