チャットワーク通知 VBA

Public Function sendChatwork(title$, sendBody$)
On Error GoTo ErrorHandler
    objLogger.Info timeGetTime & " : sendChatwork st"
    
    Dim url$
    url = "https://api.chatwork.com/v2/rooms/" & ChatworkRoomId & "/messages"
    Dim param$: param = "body=" & sendBody

    Dim objHTTP As XMLHTTP60
    Set objHTTP = New XMLHTTP60
    With objHTTP
        .Open "POST", url
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .setRequestHeader "X-ChatWorkToken", ChatworkAPIToken
        .send (param)
    End With
    
    objLogger.Info objHTTP.responseText
    Set objHTTP = Nothing
    
    objLogger.Info timeGetTime & " : sendChatwork ed"
    Exit Function
ErrorHandler:
    writeErrorLog "sentChatwork"   ' エラー情報格納／ログ出力
End Function