Sub req
Dim j As HttpJob
' define template_id before use it
Dim template_id = "template_f78380769fbd45b0b68d07a33df297b3" As String
Dim lastSuccessful = "2015-01-01T00:00:00.000Z" As String
Dim search_url = "?field=audit_id&field=modified_at&template=" & template_id & "&modified_after=" & lastSuccessful As String
Dim api_token = "1580562d13c5b96710a640c07e60b1d74637b333f0ec96a21100049e1fc68235" As String
Dim audits_url = "https://api.safetyculture.io/audits/search" As String
'HTTP GET request ; safer to use j.Download2
j.Initialize("",Me)
j.Download(audits_url&search_url)
j.GetRequest.SetHeader("Authorization", "Bearer " & api_token )
'j.PostString(audits_url , search_url)
'j.GetRequest.SetHeader("Content-Type", "application/json; charset=utf-8")
'j.GetRequest.SetHeader("Authorization:", "Bearer " & api_token )
End Sub
Sub JobDone (job1 As HttpJob)
Dim resultJSON As String
Log("jobName " & job1.JobName)
Log("jobsucess " & job1.Success )
resultJSON = job1.GetString
Log ("JSON " & resultJSON)
job1.Release
End Sub