Outro Como enviar uma requisição POST pelo excel VBA?

[rodrigosf.felipe]

Olá,

 

Preciso gerar boletos com uma planilha de controle que eu montei, para emitir o boleto eu preciso utilizar um serviço web (API) que vai registrar no banco e enviar para o cliente. Já consegui montar a primeira parte do código que vai fazer a requisição, essa parte faz a autenticação na API, mas não consigo criar a parte com os dados do boleto, alguém pode me ajudar com isso?

aqui está a parte que consegui montar no VBA:

Public Sub httpclient()
Dim xmlhttp As New MSXML2.XMLHTTP60, myurl As String
myurl = "https://sandbox.boletocloud.com/api/v1/boletos"
xmlhttp.Open "POST", myurl, False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.setRequestHeader "Authorization", "Basic " + ("YXBpLWtleV9SRU40TTZkZnlYeXlUY3UwaUdhMGMwNTF4bmhwOEFBem42aDZvT1BPY0drPQ==")
xmlhttp.send
MsgBox (xmlhttp.responseText)
End Sub

 

aqui a documentação da API que estou utilizando:

https://www.boletocloud.com/app/dev/api