WrikeのタスクにVBAを使いファイル添付したい
解決したいこと
WrikeのタスクへVBAでファイルを添付するマクロを作成しています。
マクロはエラーなく終了し、ファイルが添付出来ていますが
実際は0kbのファイルが添付されていて失敗しています。
発生している問題・エラー
Wrikeに作成したタスクへ、エクセルファイルが添付できない。
【Wrikeのタスク スクリーンショット画像】
該当するソースコード
token = ”XXXXXXX” ’ XXXXXXXX：Wrike APIトークン
url = "https://www.wrike.com/api/v4/tasks/XXXXXXXXXXX/attachments" ’XXXXXXXX：wrikeのタスクID
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
objHTTP.Open "POST", url, False
objHTTP.setRequestHeader "Authorization", "Bearer " & token
objHTTP.setRequestHeader "Content-Type", "application/vnd.ms-excel"
objHTTP.setRequestHeader "X-File-Name", "%E5%B7%A5%E6%95%B0.xlsx"
objHTTP.setRequestHeader "data-binary", "C:\%E5%B7%A5%E6%95%B0.xlsx"
objHTTP.send ""
自分で試したこと
WrikeのヘルプにCurlを使いファイルを添付する方法が書かれております。「--data-binary 'attachment content'」の部分をVBAで表現できれば解決できそうなのですが…。
【サンプルコード】
curl -g -X POST -H 'Authorization: bearer taken' -H 'content-type: application/octet-stream' -H 'X-Requested-With: XMLHttpRequest' -H 'X-File-Name: attachment.txt' --data-binary 'attachment content' 'https://www.wrike.com/api/v4/folders/XXXXXXXXXXX/attachments'
どなたか対処方法をご存じの方、ご教示頂けると大変助かります。
0 likes
