(Excel) GetHarvest - Delete Contact

Delete a contact. Returns a 200 OK response code if the call succeeded.

For more information, see https://help.getharvest.com/api-v2/clients-api/clients/contacts/

Download Excel Class Modules Chilkat Excel Class Modules

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

' Implements the following CURL command:

' curl "https://api.harvestapp.com/v2/contacts/CONTACT_ID" \
'   -H "Authorization: Bearer ACCESS_TOKEN" \
'   -H "Harvest-Account-Id: ACCOUNT_ID" \
'   -H "User-Agent: MyApp (yourname@example.com)" \
'   -X DELETE

http.SetRequestHeader "User-Agent","MyApp (yourname@example.com)"
http.SetRequestHeader "Authorization","Bearer ACCESS_TOKEN"
http.SetRequestHeader "Harvest-Account-Id","ACCOUNT_ID"


Set resp = http.QuickRequest("DELETE","https://api.harvestapp.com/v2/contacts/CONTACT_ID")
If (http.LastMethodSuccess = False) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If


respStatusCode = resp.StatusCode
Debug.Print "Response Status Code = "; respStatusCode
If (respStatusCode <> 200) Then
    Debug.Print "Response Header:"
    Debug.Print resp.Header
    Debug.Print "Response Body:"
    Debug.Print resp.BodyStr
    Debug.Print "Failed."

    Exit Sub
End If

Debug.Print "Success."