VBA discord webhook example

discord_webhook.bas

Function discord(message)
    Set request = CreateObject("WinHttp.WinHttpRequest.5.1")
    Dim Payload As String
    DISCORD_WEBHOOK_URL = "https://discordapp.com/api/webhooks/{webhook_id}/{webhook_token}"
    
    Payload = "content=" & message & _
    "&username=" & "{username}" & _
        "&avatar_url=" & "{avatar_url}"
    
    With request
        .Open "POST", DISCORD_WEBHOOK_URL, False
        .setrequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .send Payload
    End With
    If request.Status <> 204 Then
        discord = request.Status
    Else
        discord = message
    End If
        
End Function