VBScript

GetHarvest - Delete Contact

See more GetHarvest Examples

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

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

set http = CreateObject("Chilkat.Http")

' 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 = CreateObject("Chilkat.HttpResponse")
success = http.HttpNoBody("DELETE","https://api.harvestapp.com/v2/contacts/CONTACT_ID",resp)
If (success = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

respStatusCode = resp.StatusCode
outFile.WriteLine("Response Status Code = " & respStatusCode)
If (respStatusCode <> 200) Then
    outFile.WriteLine("Response Header:")
    outFile.WriteLine(resp.Header)
    outFile.WriteLine("Response Body:")
    outFile.WriteLine(resp.BodyStr)
    outFile.WriteLine("Failed.")
    WScript.Quit
End If

outFile.WriteLine("Success.")

outFile.Close