Slack API, VBScript и Outlook - Как разместить тело письма? - PullRequest
Новая
       23

Slack API, VBScript и Outlook - Как разместить тело письма?

0 голосов
/ 22 февраля 2019

Я использовал следующее и могу опубликовать статический текст (спасибо!) Вызвать Slack API через правило VBScript в Outlook

Как мне поместить телоадрес электронной почты как «текст»?Я попытался добавить следующее: 

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

dim bodymsg as string
bodymsg = mailitem.body

strEnvelope = "payload={""channel"": ""#general"", ""username"": ""Help!"", ""text"": bodymsg ""Hello @general, sorry I don't have a room number for you yet!"", ""icon_emoji"": "":PartyParrot:""}"

Call oXMLHTTP.Open("POST", "https://hooks.slack.com/services/customidnumberurlblabla" & 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'''''''''''''''''

Любая помощь будет принята с благодарностью.Да, я полный новичок.

Спасибо, Маркус

1 Ответ

0 голосов
/ 22 февраля 2019

Оказывается, мне просто нужно было сделать следующее: 

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

Спасибо за вашу помощь в любом случае.

Приветствия, Маркус

...