1) Create an incoming webhook
2) Build cards and task modules
Working Code
Code: Select all
; GLOBAL SETTINGS ===============================================================================================================
#NoEnv
#SingleInstance Force
#NoTrayIcon
SetBatchLines -1
; SET GLOBALS ===================================================================================================================
global Webhook := "https://asdfasdf.webhook.office.com/webhookb2/asdfasdf-asdf-asdf-asdf-asdfasdfasdfasdf@asdfasdf-asdf-asdf-asdf-asdfasdfasdf/IncomingWebhook/asdfasdfasdfasdfasdfasdf/asdfadsf-asdf-asdf-asdf-asdfasdfasdf"
; GET INFOS =====================================================================================================================
ComputerName := A_ComputerName
Date := A_YYYY "-" A_MM "-" A_DD " " A_Hour ":" A_Min
; CREATE JSON ===================================================================================================================
Content=
(
{
"@type": "MessageCard",
"@context": "http://schema.org/extensions",
"themeColor": "0076D7",
"summary": "AutoHotkey webhook with Teams",
"sections": [{
"activityTitle": "Show some informations",
"facts": [{
"name": "ComputerName",
"value": "MyPC"
}, {
"name": "Date",
"value": "%Date%"
}],
"markdown": true
}]
}
)
; SEND DATA =====================================================================================================================
try
{
hr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
hr.Open("POST", Webhook)
hr.SetRequestHeader("Content-Type", "application/json")
hr.Send(Content)
hr.WaitForResponse()
}
; EXIT ==========================================================================================================================
;MsgBox % "Status: " hr.Status "`nResult: " hr.ResponseText
ExitApp
; ===============================================================================================================================