Info Requested: SOAPClient Integration with JIRA


I am trying to create a JIRA using VBA. I am stuck at the creation step. Can anyone please guide me a bit on the same.

I have used the below sample code to create a JIRA. But I am stuck at the very last step while using the command createIssue.

Dim token As Variant
Dim newissue, updateissue As Variant
Dim issuemap As Variant

Dim b As Boolean

Dim SoapClient
Set SoapClient = CreateObject("MSSOAP.SoapClient30")
SoapClient.mssoapinit ("")
'token = SoapClient.LogIn("jirauser", "jira")

If Err <> 0 Then
wscript.echo "initialization failed " + Err.Description
End If

Dim new_xmlText, update_xmlText As String

new_xmlText = "<root>" & _
"<assignee>" & "USER" & "</assignee>" & _
"<project>" & "PROJECTNAME" & "</project>" & _
"<type>" & "Defect" & "</type>" & _
"<summary>" & "TestProject" & "</summary>" & _
"<priority>" & "High" & "</priority>" & _

Dim new_xmlDoc As New MSXML2.DOMDocument30

new_xmlDoc.async = False
new_xmlDoc.LoadXML (new_xmlText)
If (new_xmlDoc.parseError.ErrorCode <> 0) Then
Dim myErr
Set myErr = new_xmlDoc.parseError
MsgBox (myErr.reason)
GoTo MyEnd
End If

Dim update_xmlDoc As New MSXML2.DOMDocument30

update_xmlDoc.async = False
update_xmlDoc.LoadXML (new_xmlText)
Dim new_XMLNodeList As MSXML2.IXMLDOMNodeList
Dim new_root As MSXML2.IXMLDOMElement
Set new_root = new_xmlDoc.DocumentElement
Set new_XMLNodeList = new_root.ChildNodes
Dim FieldValues(1 To 1) As MSXML2.IXMLDOMNodeList
Dim update_XMLNodeList As MSXML2.IXMLDOMNodeList
Dim update_root As MSXML2.IXMLDOMElement
Set update_root = update_xmlDoc.DocumentElement
Set update_XMLNodeList = update_root.ChildNodes
Set FieldValues(1) = update_XMLNodeList
Set updateissue = SoapClient.createIssue(token, update_XMLNodeList)

I get a runtime automation error at the last step

Can you please help me out by pointing out where I might have gone wrong? I have googled the stuff quite a bit but to no avail. Thanks.

1 answer

Suggest an answer

Log in or Sign up to answer
How to earn badges on the Atlassian Community

How to earn badges on the Atlassian Community

Badges are a great way to show off community activity, whether you’re a newbie or a Champion.

Learn more
Community showcase
Published Sunday in Agility

You asked for it, so we delivered: images on issues have arrived

A picture tells a thousand words. And agility boards have just released their latest feature: cover images on issues – so now your board can tell a story at first glance. Upload attachmen...

205 views 2 11
Read article

Atlassian User Groups

Connect with like-minded Atlassian users at free events near you!

Find a group

Connect with like-minded Atlassian users at free events near you!

Find my local user group

Unfortunately there are no AUG chapters near you at the moment.

Start an AUG

You're one step closer to meeting fellow Atlassian users at your local meet up. Learn more about AUGs

Groups near you