Posting Issues to Jira using VBA

[samuelimtech]

Hi all,

as the title suggests im looking to try and automate creating jira's but running into problems when trying to post.

The authorization code seems to work as there's no failure when i use GET.

the JSON seems to be ok.

The error i recieve is "XSRF check failed" which upon research suggests im missing an additional authorisation step when posting data but i can't work out what's missing.




Private JiraService As New MSXML2.XMLHTTP30
Private arrData() As Byte


Sub Test()


Dim objRequest As Object
Dim blnAsync As Boolean
Dim strResponse As String
Dim UserName, Password As String
Dim sURL, strURL As String

UserName = "XXXX"
Password = "XXXXX"
Call isAuthorized


Set objRequest = CreateObject("MSXML2.XMLHTTP")



sURL = "https://jira.XXX.com"

m_sJSONString = json_Formatter()


With objRequest
.Open "POST", sURL & "/rest/api/2/issue/", False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Accept", "application/json"
.setRequestHeader "Authorization", "Basic " & EncodeBase64
.send m_sJSONString
If .Status <> 401 Then
m_sJSONString = .responseText
Else
m_sJSONString = "Error: Invalid Credentials!"
End If

End With




Debug.Print m_sJSONString


End Sub

[SamT]

The only VBA errors(?) I see is that "Dim sURL, " makes sURL a Variant, which doesn't matter in VBA, and the 2 module level Variables are not used.

Also, https://jira.XXX.com is not a valid Internet address.

Place "Option Explicit" at the top of the Code Page. Debug >> Compile the code and fix any errors. Then Use F8 to step thru the code and fix any errors found that way.







Finally, if you can't get jira working, take a look at FogBugz. Disclaimer, I am not a user of fogbugz, nor associated with them. I just admire Joel Spotsky.

[snb]

.setRequestHeader "Authorization", "Basic " & EncodeBase64


The variable EncodeBase64 has no content, nor is it declared.

@SamT

Previously you seemed a fan of Spolsky ?
You changed your bets ?

[SamT]

Sploky's outfit invented foxbugz