Private Sub GetAccountDetails
Dim job As HttpJob
job.Initialize("GetAccountDetails", Me)
job.Download($"https://api.mailjet.com/v3/REST/user"$)
Auth(job)
End Sub
Private Sub Auth(Job As HttpJob)
Dim su As StringUtils
Dim userpass As String = $"${MJ_APIKEY_PUBLIC}:${MJ_APIKEY_PRIVATE}"$
Dim basicAuth As String = su.EncodeBase64(userpass.GetBytes("UTF8"))
Job.GetRequest.SetHeader("Authorization", "Basic " & basicAuth)
End Sub