Http post requests with Teams

[VbaNo0b]

Hello,
I want to create a simple HTTP post request to post a conversation to a Teams channel.
I use the below code but it doesn't work. No response given on the request. Why?

Dim HTTPobj As Object
Set HTTPobj = CreateObject("MSXML2.ServerXMLHTTP")
Dim T As String
Dim result As String

T = "{""body"":""helloo""}"

Dim url As String
url = "https://teams.microsoft.com/v1/user...XcZ9TcF0hoT15hElszynag1@thread.tacv2/messages"

With HTTPobj
.Open "POST", url, False

.setRequestHeader "Content-type", "application/json"
.send (T)
result = .responsetext

End With