使用Excel VBA将消息发布到SLACK

我需要一些帮助与VBA后松弛使用降价。 我制作了一个宏，将文本发送到Slack频道，但我无法找到正确的方法来制作文本，以便以格式化的方式发布Slack的输出，显示超链接文本而不是整个文本字符串，或者发布图像而不是图像url

下面是我的工作代码

Sub BOT_SLACK_POST()
Dim HTTP As Object, Htmldoc As New HTMLDocument
Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
Dim send_text As String

send_text = "<https://stackoverflow.com/questions/ask|Ask a public question> \n :star: Text in a new line \n https://cormullion.github.io/assets/images/slackmojif/slackanimation.gif"

    Dim URL$, body$
    JBody = "{""Contents"":""" & send_text & """}"
    URL = "My_Slack_Channel_Webhook_URL"
    HTTP.Open "POST", URL
    HTTP.setRequestHeader "Content-Type", "application/json"
    HTTP.send JBody
    
End Sub

Sub-BOT\u SLACK\u POST（）
Dim HTTP作为对象，Htmldoc作为新的HTMLDocument
设置HTTP=CreateObject（“WinHttp.WinHttpRequest.5.1”）
Dim将文本作为字符串发送
send_text=“\n:star:新行中的文本\nhttps://cormullion.github.io/assets/images/slackmojif/slackanimation.gif"
Dim URL$，正文$
JBody=“{”Contents”“：”“”发送文本（&U）
URL=“My\u Slack\u Channel\u Webhook\u URL”
HTTP.Open“POST”，URL
HTTP.setRequestHeader“内容类型”、“应用程序/json”
HTTP.send JBody
端接头

这就是输出到松弛通道的外观

非常感谢您的建议。

签出Slack Block Kit（）以格式化消息

关于友好的网址。使用以下格式：

    <http://www.google.com|This message *is* a link to Google>

{
"blocks": [
    {
        "type": "section",
        "text": {
            "type": "mrkdwn",
            "text": "Here's a message that includes some *bold text*.  The next section has an image."
        }
    },
    {
        "type": "image",
        "title": {
            "type": "plain_text",
            "text": "Here's an image",
            "emoji": true
        },
        "image_url": "https://assets3.thrillist.com/v1/image/1682388/size/tl-horizontal_main.jpg",
        "alt_text": "marg"
    },
    {
        "type": "divider"
    },
    {
        "type": "actions",
        "elements": [
            {
                "type": "button",
                "text": {
                    "type": "plain_text",
                    "text": "This button is a link",
                    "emoji": true
                },
                "value": "click_me_123",
                "url": "https://stackoverflow.com"
            }
        ]
    }
]
}