Помощь по скрипту, как сделать, чтобы оповещения не требовали прочтения?
Добавлено: Чт авг 02, 2018 10:59 am
Здравствуйте!
Подскажите пожалуйста по скрипту. Как сделать чтоб сообщения были простыми. Т.е. не обязательные к прочтению.
Подскажите пожалуйста по скрипту. Как сделать чтоб сообщения были простыми. Т.е. не обязательные к прочтению.
Код: Выделить всё
const
sPath = 'C:\msg\broadcast\'; // путь, откуда брать файлы для сообщений
sGroup = 'msg';
var
sFileName, sMsg, sUsersList: string;
begin
sFileName := sPath + FormatDatetime('hh.nn', Now) + '.txt';
//sFileName := sPath +'14.50.txt';
if FileExists(sFileName) then begin
// mLogScript(sFileName, '');
sMsg := Trim(LoadTextFromFile(sFileName, 0));
sUsersList := mGetUsersListInGroupByName(sGroup);
// mLogScript(sMsg, '');
if (length(sMsg) > 0) and (length(sUsersList) > 0) then begin
// mLogScript('OK', '');
mSendBroadcast(sMsg, sUsersList, EndOfTheDay(Now), 1);
end;
end;
end.