Vba-WEB unable to authorize with httpbasic authenticator

See more:

VB

VBA

Hi

I am trying to use VBA-Web for submitting REST API via Excel VBA and running into issues

GitHub - VBA-tools/VBA-Web: VBA-Web: Connect VBA, Excel, Access, and Office for Windows and Mac to web services and the web[^]

Private Sub Worksheet_Activate() 
Dim Client As New WebClient 
Dim Request As New WebRequest 

Client.TimeoutMs = 30000 ' 30 seconds

Client.BaseUrl = "https://postman-echo.com/basic-auth"
'Client.BaseUrl = "https://rest.reviso.com/customers?demo=true"
Request.Format = WebFormat.Json

Dim Auth As New HttpBasicAuthenticator
Auth.Setup _
Username:="postman", _
Password:="password"


Dim Response As WebResponse
Set Response = Client.Execute(Request)

If Response.StatusCode <> Ok Then
    Sheets("Test").Range("A1") = Response.StatusDescription
    Exit Sub
End If

Dim Json As Object
Set Json = WebHelpers.ParseJson(Response.Content)

FillData Json
End Sub

Thanks!

What I have tried:

I tried to modify this example to use HttpBasicAuthenticator but unsuccessful it says HTTP error 401. When I use Postman to submit the rest request it is fine.

api-samples/rest/excel at master · revisohq/api-samples · GitHub[^]

If I use this Url that does not need to authenticate. It works as expected

https://rest.reviso.com/customers?demo=true[^]