www.nsoft-s.com

const
  sHost      = 'mail.pisem.net';
  sEmailFrom = '[email protected]';
  sPassword  = '**********';  
  iPort      = 25;
  
  MSG_TYPE_COMMENT = 21;
  
function OnPrivateMessage(iCID, iUIN, iUINTo, iMsgType: integer; sMsg: string): boolean;
var
  sEmailTo, sReplyTo, sTextBody, sNameFrom, sNameTo: string;
begin
  result := true;
  if not mIsUINOnline(iUINTo) then begin
    sEmailTo := mGetUserPrimaryEmail(iUINTo);
    if Length(sEmailTo) > 0 then begin
      sNameFrom := mGetUserFullNameByPreset(iUIN, 2);    
      sNameTo   := mGetUserFullNameByPreset(iUINTo, 2);
      sTextBody := '<span style="color:green">' + FormatDateTime('[dd.mm.yyyy hh:nn:ss]', Now) + '</span>'+
                   '<span style="color:blue"><b> ' + sNameFrom + '</b></span>'+
                   '&gt; '+ ReplaceString(mConvertMsgToPlainText(sMsg, iMsgType), CRLF, '</br>', true, false)+
                   '<span style="color:grey"><p>_______________________________________________<br>'+
                   'Сообщение отправлено сервером MyChat. Просьба не отвечать на это сообщение.<br>';
      sReplyTo := mGetUserPrimaryEmail(iUIN);
      if Length(sReplyTo) > 0 then 
         sTextBody := sTextBody + 'Если вы хотите ответить пользователю ' + sNameFrom +
                      ', то пишите на адрес: <a href="mailto:' + sReplyTo + '">' + sReplyTo + '</a>';
      sTextBody := sTextBody + '</p></span>';
      SendEmail(sHost, iPort, sEmailFrom, sPassword, sEmailFrom, true, sEmailTo,
                'Новое сообщение MyChat от ' + sNameFrom, sTextBody, 1, '');
      mSendPrivateMessage(iUINTo, iUIN, 'Я СЕЙЧАС НЕ В СЕТИ. Сообщение продублировано мне на e-mail.', MSG_TYPE_COMMENT);
    end;
  end;
end;

begin

end.