Чт июл 26, 2018 10:45 am Чт июл 26, 2018 10:45 am
Можно сделать автоматическую отправку оповещений на почтовый ящик пользователя(если указан), независимо в сети пользователь или нет?
С уважением, Сергей.
// ---------------------------------------
// Script created by Сергей Иванов (UIN 2)
// 26.07.2018 16:13:20
// ---------------------------------------
const
sHost = 'smtp.gmail.com';
sLogin = '[email protected]';
sPassword = 'password';
iPort = 587;
bSSL = true; //использовать защищённое SSL/TLS соединение или нет
function OnBroadcastMessage(iCID, iUIN: integer; var sUsersList: string; var dtActualTo: double; var bReadNotify: boolean; iMsgType: integer; sMsg: string): boolean;
var
s, sEmailTo, sEmailFrom, sTextBody, sNameFrom, sNameTo: string;
iUINTo: integer;
dt: double;
begin
result := true;
// получаем список UIN-ов людей, которым адрессовалось оповещение
s:= sUsersList
// и перебираем их всех по одному, если офлайн передаем оповещение на почту
while length(s)>0 do begin
iUINTo := strtoint(GetNextSt(s, ','));
if not mIsUINOnline(iUINTo) then begin
sEmailTo := mGetUserPrimaryEmail(iUINTo);
sEmailFrom := mGetUserPrimaryEmail(iUIN);
if (length(sEmailTo) > 0) and (length(sEmailFrom) > 0) then begin
sNameFrom := mGetUserFullNameByPreset(iUIN, 5);
sNameTo := mGetUserFullNameByPreset(iUINTo, 5);
sTextBody := 'Здравствуйте, ' + sNameTo + ', пока вас не было в чате вам пришло оповещение:<br /><br />' +
'<span style="color:green">' +
FormatDateTime('[dd.mm.yyyy hh:nn:ss]', Now) +
'</span>' +
' '+
'<span style="color:blue"><b>' +
sNameFrom +
'</b></span>'+
' > '+
ReplaceString(mConvertMsgToPlainText(sMsg, iMsgType), CRLF, '<br />', true, false);
SendEmail(sHost, iPort, sLogin, sPassword, sEmailFrom, bSSL, sEmailTo,
'Оповещение для ' + sNameTo + ' от MyChat', sTextBody, 1, '');
end;
end;
end;
end;
begin
end.
Принято, спасибо. Будем ждать.
Ильнур, здравствуйте. Для подключения мобильных кл[…]
Версия обновлена. Вы обновили свой сервер? Проблем[…]
Мы доделали обработку ссылок на локальные ресурсы.[…]
Сделали ещё исправления . Свежая сборка будет на […]
Изменили логику отображения длительности отсутст[…]
MyChat Client [*] (24.04.2024) (android) (io[…]
Это формируете вы, система контроля рабочего време[…]
К сожалению проблема не решена, вы можете отключит[…]
Подскажите, в версии 3.3 починили эту проблему? А […]
Георгий дал вам ссылку на справку, расположенную н[…]
Здравствуйте. 1. Откройте описание ошибки в спра[…]