Чтобы отправить данные о проблеме с помощью REST API, нам нужно создать допустимую строку JSON, содержащую сведения о проблеме.
Базовый пример строки JSON:
{“fields” : { “project” : { “key” : “@KEY@” } , “issuetype” : { “name” : “@IssueType@” } } }
Теперь установите соединениев JIRA и проверьте аутентификацию пользователя.Как только аутентификация установлена, мы отправляем строку REST API + JSON через метод XMLHTTP.Обработайте ответ и проинформируйте пользователя об успехе или неудаче ответа.
Итак, здесь JiraService, являющийся объектом XMLHTTP, что-то вроде этого добавит проблему, где EncodeBase64 - это функция, которая возвращает зашифрованную строку.
Public Function addJIRAIssue() as String
With JiraService
.Open "POST", <YOUR_JIRA_URL> & "/rest/api/2/issue/", False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Accept", "application/json"
.setRequestHeader "Authorization", "Basic " & EncodeBase64
.send YOUR_JSON_STRING
If .Status <> 401 Then
addJIRAIssue = .responseText
Else
addJIRAIssue = "Error: Invalid Credentials!"
End If
End With
Set JiraService = Nothing
End Sub
Вы можете посмотреть полный пример VBA здесь