Profile: IUserProfile;
The Profile property returns the user profile.
The profile contains information about the Email addresses, which correspond to this user and any additional properties of the user. To edit the profile, the user must have administrator permissions.
Sub UserProc;
Var
Mb: IMetabase;
User: IMetabaseUser;
Prof: IUserProfile;
Emails: IUserEmails;
Begin
Mb := MetabaseClass.Active;
User := Mb.LogonSession.User;
Prof := User.Profile.Edit;
//Default address
Prof.Email := "user_work@example.ru";
Emails := Prof.Emails;
//Mobile, work and home addresses
Emails.Mobile := "user_mobile@example.ru";
Emails.Working := "user_work@example.ru";
Emails.Personal := "user_personal@example.ru";
//Apply profile changes
Prof.Apply;
End Sub UserProc;
On executing the example email addresses will be changed in the profile of the user, under whom the authorization in the repository is executed.
See also: