Hi,
I am triing to send a txt file to a jira issue in VB.
I know, there are a alot of topic on, but i try all ad nothing works :/
I got a 200 ansmwer but nothing is attached.
This is my code
*********************************************************************************************
*********************************************************************************************
*********************************************************************************************
Public Function jiraSendFile(user As String, password As String, id As String, fileToUpload As String)
Dim oRequest As Object
oRequest = New WinHttp.WinHttpRequest
Dim data As String
Dim response As String
Dim status As String
Dim url As String
'Dim File As String
Dim file As New StreamReader(fileToUpload)
******************************* LOGIN *****************************************
data = "{""username"": """ & user & """,""password"": """ & password & """}"
url = "http://localhost:8080/rest/auth/1/session"
oRequest.Open("POST", url)
oRequest.setRequestHeader("Content-Type", "application/json")
oRequest.Send(data)
response = oRequest.ResponseText
status = oRequest.Status
******************************* ATTACH *****************************************
'data = fieldToUpdate
'File = fileToUpload
url = "http://localhost:8080/rest/api/2/issue/" & id & "/attachments"
oRequest.Open("POST", url)
oRequest.setRequestHeader("X-Atlassian-Token", "no-check")
'oRequest.setRequestHeader("Content-Type", "multipart/form-data; boundary=21b8f440a67b603ac60941ee")
oRequest.setRequestHeader("Content-Type", "multipart/form-data; boundary=----WebKitFormBoundaryyrV7KO0BoCBuDbTL")
oRequest.setRequestHeader("Content-Disposition", "form-data; name = ""file.txt""; filename = C:\Users\Guile\Documents\file.txt""")
oRequest.Send(file)
'oRequest.setRequestHeader("Content-Type", "application/json")
'oRequest.setRequestHeader("Authorization", "Basic")
'oRequest.setRequestHeader("Content-Type", "application/octet-stream")
'oRequest.setRequestHeader("Content-Disposition", File)
'oRequest.Send(file)
******************************* ANSWER *****************************************
response = oRequest.ResponseText
status = oRequest.Status
Result.Text = Result.Text & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Corps : " & data & vbCrLf & "Status : " & status & vbCrLf & "Réponse : " & response
Result.Update()
'MsgBox(test & vbCrLf & status & vbCrLf & vbCrLf & response)
File = Nothing
oRequest = Nothing
Return 0
End Function
*********************************************************************************************
*********************************************************************************************
*********************************************************************************************
Here the answer
******************************* LOGIN *****************************************
Corps : {"username": "GUILE","password": "XXXXXXX"}
Status : 200
Réponse : {"session":{"name":"JSESSIONID","value":"3E448B78F2922D246C2AB475E3014079"},"loginInfo":{"failedLoginCount":37,"loginCount":1426,"lastFailedLoginTime":"2019-10-01T13:53:32.368+0200","previousLoginTime":"2019-11-15T10:40:27.176+0100"}}
******************************* ATTACH *****************************************
Corps : {"username": "GUILE","password": "XXXXXXX"}
Status : 200
Réponse : []
I am really lost.. thank you !
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.