HI, I was trying to use the same code but was not able to succeed.
here is what I am using.
Public Function GetSecurityHeader() As String
'-----------------------------
'Auhentification
'-Get Server/username& Password from Security Tab
'-Encode under Basic Authentification Base 64
'----------------------------------------
Dim Wsec As Worksheet: Set Wsec = Sheets("Security")
Dim username As String: username = Wsec.Cells(2, 2)
Dim password As String: password = Wsec.Cells(3, 2)
GetSecurityHeader = "Basic " & Encode64(username & ":" & password)
End Function
Private Sub ProjectRefresh_Click()
'Build Authorization Header
Dim Wsec As Worksheet: Set Wsec = Sheets("Security")
Dim APIserver As String: APIserver = Wsec.Cells(1, 2)
Dim auth_header As String: auth_header = GetSecurityHeader()
Dim W As Worksheet: Set W = Sheets("GetProjects")
Dim Last As Integer: Last = W.Range("A5000").End(xlUp).Row
Dim Id As String
Dim i As Integer
Dim URL As String
Debug.Print auth_header
Dim Auth As New WinHttpRequest
URL = APIserver & "/testcase/TC649812"
Debug.Print URL
Auth.Open "GET", URL, False
Auth.SetRequestHeader "authorization", auth_header
Auth.Send
after Auth.Send I get an automation error. I am not sure what I was doing wrong.
here are the references used.
can you please help.