VBAでmultipart/form-dataでのファイル送信について

Question

【行いたい動作】
VBAでzipファイルをサーバーにPOSTする

【現状試していること】
VBAでテキストは、POST出来たので
multipart/form-data形式に変更を試している。

zipファイルをstreamで読み込んで、
multipart/form-data形式で送信するためには、
どのように指定をすればよいでしょうか。

'データ送信
Function SendJsonData(url As String, sendData As String) As String
    Dim xmlHttp  As Object
    Dim strRes   As String
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    
    ' zipファイル名取得
    ZipFileName = CreateZip(userName, row, sendData)
    
    ' リクエストパラメタ用の領域を生成
    Dim Stream As Object
    Set Stream = CreateObject("ADODB.Stream")
    Stream.Open
    
    ' Streamのオープン
    Stream.Type = 1 '
    Stream.LoadFromFile = ZipFileName
    
On Error GoTo ErrorLog
    With xmlHttp
        .Open "POST", url, False
        .setRequestHeader "Content-Type", "multipart/form-data;"
        .Send (tempParamStream.Read(Stream.Size))
        strRes = .ResponseText
    End With
    
    '結果を受け取る
    SendJsonData = strRes
    
    '結果を表示
    Debug.Print (strRes)
    Exit Function
    
' エラーを検知した場合
ErrorLog:
    SendJsonData = "インターネットに接続されていません"
End Function

Answer 1

VBAではなくWSH(JScript)ですが、自分の製造しているスクリプトでは以下のコードで、ADODB.Stream、MSXML2.XMLHTTPを利用してzipファイルをサーバに送信することに成功しています。
参考にしてください。
(webdavにファイルをアップロードするコードなのでPOSTではなくPUTで送信してますが)

var put = function(localPath, serverPath) {
	var stream;
	stream = new ActiveXObject("ADODB.Stream");
	stream.Open();
	stream.type = 1; // adTypeBinary
	stream.LoadFromFile(localPath);
	send("PUT", serverPath, stream);
	stream.Close();
};

var send = function(method, path, data) {
	var xmlHttp;
	xmlHttp = new ActiveXObject("MSXML2.XMLHTTP");
	xmlHttp.open(method, encodeURI(path), 0, USER, PASS);
	xmlHttp.send(data);
};

Answer 2

すみません、解決いたしました。