从excel VBA发送短信

Sub SendSMS()
    Dim request As Object
    Dim response As Object
    Dim url As String
    Dim apiKey As String
    Dim apiSecret As String
    Dim phoneNumber As String
    Dim message As String
    
    ' 设置短信内容和接收手机号码
    message = "这是一条测试短信。"
    phoneNumber = "手机号码"
    
    ' 设置短信服务商的API密钥和API密钥ID
    apiKey = "API密钥"
    apiSecret = "API密钥ID"
    
    ' 构造短信发送请求的URL
    url = "https://sms.api.cloud.tencent.com/v5/tlssmssvr/sendsms?sdkappid=SDKAppID&random=Random"
    
    ' 创建XMLHTTP对象并发送请求
    Set request = CreateObject("MSXML2.XMLHTTP")
    request.Open "POST", url, False
    request.setRequestHeader "Content-Type", "application/json"
    request.setRequestHeader "Authorization", "TC3-HMAC-SHA256 Credential=" & apiKey & "/2022-06-11/sms/tc3_request, SignedHeaders=content-type;host, Signature=..."
    request.Send ("{""tel"":{""mobile"":""" & phoneNumber & """},""content"":""" & message & """}")
    
    ' 解析响应结果
    Set response = JsonConverter.ParseJson(request.responseText)
    
    ' 处理响应结果
    If response("result")("errmsg") = "OK" Then
        MsgBox "短信发送成功！"
    Else
        MsgBox "短信发送失败：" & response("result")("errmsg")
    End If
End Sub