sub Send2Telegram(vMessage,vChatId)
/*============================================================================================
Send2Telegram - Отправка сообщений в сервис Telegram
----------------------------------------------------------------------------------------------
На входе:
vMessage - Строка сообщения
vChatId - id получателя (пользователь, канал)
----------------------------------------------------------------------------------------------
Дата последних изменений: 21.06.2020
============================================================================================*/
//BotTokenТокен, вывдаваемый
@BotFather при создании чата
set vT.BotToken = '11111111111:xxxxxxxxxxxxxxxxxx';
// Значение ID канала, контакта
set vT.ChatId = '$(vChatId)';
let vT.Message = if(len(vMessage)>0,vMessage,'Пустое сообщение');
set ErrorMode=0;
vt.tmp1:
Load 1 From
[
https://api.telegram.org/bot$(vT.BotToken)/sendMessage?chat_id=$(vT.ChatId)&text=$(vT.Message)&parse_mode=HTML];
DROP TABLE vt.tmp1;
set ErrorMode=1;
set vT.BotToken =;
set vT.ChatId =;
set vT.Message =;
endsub