こんにちは。

タイトルの通り、Chatwork api を使用して、Chatworkにファイルの送信したいのですが、コードの書き方が分かりません。

chatworkの公式サイトを参考に以下のようなコードを書いてみたのですが、ファイルを送信することができません。。。

http://developer.chatwork.com/ja/endpoint_rooms.html#GET-rooms

ファイルの送信方法をご教授頂けないでしょうか。

どうぞよろしくお願いいたしますm(__)m

作成したコード

Dim oXML
Dim message
Dim messages
Dim room
Dim apikey
Dim url
Dim api

file = !ファイルパス!
room = !ルームID!
apikey = !API_KEY!
url = "https://api.chatwork.com/v2/rooms/" & room & "/files"
files = "file=" & file

Set oXML = Nothing
With CreateObject("MSXML2.XMLHTTP")
.Open "POST" , url , False
.SetRequestHeader "Content-Type" , "Content-Type=multipart/form-data"
.SetRequestHeader "X-ChatWorkToken" , apikey
.Send (files)
End With