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

26 views
Skip to first unread message

Y Yoshihiro

unread,
Jul 6, 2021, 7:44:20 AMJul 6
to Redmine Users (japanese)
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

Reply all
Reply to author
Forward
0 new messages