求LotusScript发送带JSON内容的HTTPS Post请求代码示例

我理解你在找LotusScript下发送HTTPS POST请求并携带JSON数据的方案，这确实是个容易踩坑的点，毕竟LotusScript的HTTP工具不像现代语言那么直观。下面给你一个经过验证的代码片段，包含完整的请求流程和关键细节：

Sub SendHTTPSPostWithJSON()
    Dim session As New NotesSession
    Dim httpReq As NotesHTTPRequest
    Dim jsonPayload As String
    Dim responseText As String
    Dim url As String
    Dim headers As Variant
    
    ' 1. 设置目标URL和JSON请求体
    url = "https://your-target-server.com/api/endpoint"
    jsonPayload = |{"username":"testUser","email":"test@example.com","active":true}|
    
    ' 2. 创建HTTP请求对象
    Set httpReq = session.CreateHTTPRequest()
    
    ' 3. 设置请求头：指定Content-Type为JSON
    headers = |"Content-Type":"application/json","Accept":"application/json"|
    Call httpReq.SetCustomHeaders(headers)
    
    ' 4. 发送POST请求，处理HTTPS（自动验证证书，若需忽略证书可看注释）
    ' 若需要跳过SSL证书验证（仅测试环境使用！），添加下面一行：
    ' httpReq.SetOption(HTTPREQUEST_OPTION_SSL_VERIFY_SERVER_CERT, False)
    
    responseText = httpReq.Post(url, jsonPayload)
    
    ' 5. 处理响应
    If httpReq.StatusCode = 200 Then
        Print "请求成功！响应内容：" & responseText
    Else
        Print "请求失败，状态码：" & CStr(httpReq.StatusCode) & "，错误信息：" & responseText
    End If
    
    ' 清理对象
    Set httpReq = Nothing
End Sub

关键细节说明： #

• NotesHTTPRequest对象：这是LotusScript中处理HTTP请求的核心对象，从NotesSession创建，原生支持HTTPS请求，兼容性和稳定性更好。
• 请求头设置：必须指定Content-Type: application/json，否则服务器无法正确解析JSON数据；Accept头用于告诉服务器我们期望接收JSON格式的响应。
• SSL证书处理：默认情况下，LotusScript会验证服务器的SSL证书。如果是测试环境的自签名证书，你可以通过SetOption方法关闭验证，但生产环境绝对不要这么做，避免安全风险。
• JSON格式：确保你的JSON字符串格式正确，引号要转义（在LotusScript中用竖线|包裹字符串可以避免转义引号的麻烦，或者用双引号转义：""username""）。

如果你的Domino版本较旧（低于9.0.1 FP8），NotesHTTPRequest可能不可用，这种情况下可以考虑使用OLE对象（依赖客户端环境），代码示例如下：

Sub SendHTTPSPostWithJSON_OLE()
    Dim xmlHttp As Variant
    Dim jsonPayload As String
    Dim url As String
    
    url = "https://your-target-server.com/api/endpoint"
    jsonPayload = |{"username":"testUser","email":"test@example.com","active":true}|
    
    Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    xmlHttp.Open "POST", url, False
    xmlHttp.setRequestHeader "Content-Type", "application/json"
    xmlHttp.setRequestHeader "Accept", "application/json"
    
    ' 跳过证书验证（仅测试用）
    xmlHttp.setOption 2, 13056 ' SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
    
    xmlHttp.send jsonPayload
    
    If xmlHttp.Status = 200 Then
        Print "请求成功！响应：" & xmlHttp.responseText
    Else
        Print "请求失败，状态码：" & CStr(xmlHttp.Status) & "，错误：" & xmlHttp.responseText
    End If
    
    Set xmlHttp = Nothing
End Sub

优先推荐使用原生的NotesHTTPRequest方法，避免依赖外部环境。

内容的提问来源于stack exchange，提问作者PeterMIME