TUser - Exemples
| TUser = class (TObject) | Interface de TUser | Exemples de TUser |
uses QubesUsers;
var user:=TUser.CreateNew('mgeller', 'Geller', 'Monica');
user.BeginUpdate;
user.UseLDAPAuth:=True;
user.LDAPLogin:='mgeller';
user.ManagerLogin:='cbing';
user.MainSite:='NY';
user.MainService:='CUI';
user.ContractType:='CDI';
user.AddFunction('CHEF', 'NY', 'CUI');
user.ContactEmail:='[email protected]';
user.ContactPhone:='+1 555-123-4567';
user.ContactGSM:='+1 555-123-5678';
user.ContactFAX:='+1 555-123-6789';
user.UseExternalMailBox:=True;
user.TypeMessagerie:='SMTP';
user.SMTPMail:='[email protected]';
user.AttachmentMode:='QuBESLinksAndHTTPLinks';
user.EndUpdate;
var user:=TUser.CreateNew('mgeller', 'Geller', 'Monica');
user.BeginUpdate;
user.UseLDAPAuth:=True;
user.LDAPLogin:='mgeller';
user.ManagerLogin:='cbing';
user.MainSite:='NY';
user.MainService:='CUI';
user.ContractType:='CDI';
user.AddFunction('CHEF', 'NY', 'CUI');
user.ContactEmail:='[email protected]';
user.ContactPhone:='+1 555-123-4567';
user.ContactGSM:='+1 555-123-5678';
user.ContactFAX:='+1 555-123-6789';
user.UseExternalMailBox:=True;
user.TypeMessagerie:='SMTP';
user.SMTPMail:='[email protected]';
user.AttachmentMode:='QuBESLinksAndHTTPLinks';
user.EndUpdate;