VBAでRedmineチケットに添付ファイルを登録する方法

[Y Yoshihiro]

VBAでRedmineチケットを登録するときにファイルを添付するには

どのようにすればようでしょうか。

以下の記載でチケット登録はできていますが、ファイルのアップロードの

方法がわかりません。

参考になるリンクがあれば教えてください。

    Dim xhr

    Dim RequestURL As String

    Dim RequestBody As String

    Dim bPmary() As Byte

    RequestURL = REDMINE_URL & "/issues.xml?format=xml&key=" & REDMINE_API_KEY

    Set xhr = CreateObject("Microsoft.XMLHTTP")

    xhr.Open "POST", RequestURL, False

    xhr.setRequestHeader "Content-Type", "text/xml"

    RequestBody = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & "?>"

    RequestBody = RequestBody & "<issue>"

    RequestBody = RequestBody & "<project_id>1</project_id>"

    RequestBody = RequestBody & "<subject>" & Subject & "</subject>"

    RequestBody = RequestBody & "</issue>"

    xhr.Send (RequestBody)

    If xhr.Status = 201 Then

        PostIssue = True

    Else

        PostIssue = False

    End If