MyChat Scripts Engine: mGetUserDepartmentName, user's group name in the comon contact list

Getting a department name from the common contact list by user identifier (UIN).

 

Syntax

function mGetUserDepartmentName(iUIN: integer): string;

 

Parameters and return values

 

Function result

Group name. If the common contact list is empty, user UIN does not exist or not located in the common contact list — the function returns an empty string.

 

Example
In this example we listed all server users, beginning from UIN = 1. If someone of them in the common list, the script displays this user UIN, his name in the chat and group name in the common contact list.

var
  i, iMax: integer;
  s, sName: string;
begin
  iMax :=  mGetMaxRegisteredUIN; 
  s := '';
  
    for i := 1 to iMax do 
      if mIsUINExists(i) then begin
        sName := mGetUserDepartmentName(i);
        
          if length(sName) > 0 then begin
            s := s +
                 'User UIN ' + inttostr(i) + 
                 ', Name: "' + mGetUserAttribute(i, 'DisplayName') + '" ' +
                 'is in common contacts list, group : "' + sName + '"' +
                 CRLF;
          end;
      end;
  
    if length(s) > 0 then mLogScript(s, '')
      else mLogScript('Common contacts list is empty!', '');
end.

Script work result

[11:48:05] (Log "mGetUserDepartmentName"): User UIN 3, Name: "Andrew Rakov" is in common contacts list, group : "Teamleads"

User UIN 6, Name: "Alexey Pikurov" is in common contacts list, group : "Sales department"

User UIN 5454, Name: "Notebook Acerov" is in common contacts list, group : "Bookkeeping"

User UIN 15427, Name: "Heorhii Lysenko" is in common contacts list, group : "MyChat developers"

[11:48:05] (Run "mGetUserDepartmentName"): Script operation time: 703 ms

[11:48:05] (Run "mGetUserDepartmentName"): Script done successfully.

 

See also

CRLF

IntToStr

Length

mIsUINExists

mGetMaxRegisteredUIN

mGetUserAttribute

mLogScript