Outlook 如何发布电子邮件正文？

我有以下内容来发布静态文本

我该如何将电子邮件的正文作为“文本”

我尝试添加以下内容：

Sub ProcessSend(Item As Outlook.MailItem)
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
Set oXMLDoc = CreateObject("MSXML2.DOMDocument")

strEnvelope = "payload={""channel"": ""#general"", ""username"": ""Help!"", ""text"": ""@general" & Item.Body & """, ""icon_emoji"": "":PartyParrot:""}"

Call oXMLHTTP.Open("POST", "https://hooks.slack.com/services/blablablablablabla" & posFirm, False)
Call oXMLHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Call oXMLHTTP.Send(strEnvelope)

Dim szResponse: szResponse = oXMLHTTP.responseText
Call oXMLDoc.LoadXML(szResponse)
End Sub

子进程发送（项目作为Outlook.MailItem）
设置oXMLHTTP=CreateObject（“MSXML2.XMLHTTP.6.0”）
设置oXMLDoc=CreateObject（“MSXML2.DOMDocument”）
dim bodymsg作为字符串
bodymsg=mailitem.body
strevelope=“payload={”“channel”“：”“#general”“，”“username”“：”“Help！”，“text”“：bodymsg”“您好@general，对不起，我还没有您的房间号！”，“icon#emoji”“：”“：PartyParrot:”“”
调用oXMLHTTP.Open（“POST”https://hooks.slack.com/services/customidnumberurlblabla“&posFirm，False）
调用oXMLHTTP.setRequestHeader（“内容类型”，“应用程序/x-www-form-urlencoded”）
调用oXMLHTTP.Send（strevelope）
Dim szResponse:szResponse=oXMLHTTP.responseText
调用oXMLDoc.LoadXML（szResponse）
端接头

结果表明，我只需要执行以下操作：

Sub ProcessSend(Item As Outlook.MailItem)
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
Set oXMLDoc = CreateObject("MSXML2.DOMDocument")

strEnvelope = "payload={""channel"": ""#general"", ""username"": ""Help!"", ""text"": ""@general" & Item.Body & """, ""icon_emoji"": "":PartyParrot:""}"

Call oXMLHTTP.Open("POST", "https://hooks.slack.com/services/blablablablablabla" & posFirm, False)
Call oXMLHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Call oXMLHTTP.Send(strEnvelope)

Dim szResponse: szResponse = oXMLHTTP.responseText
Call oXMLDoc.LoadXML(szResponse)
End Sub

无论如何，谢谢你的帮助

干杯， 马库斯