Mobile: String;
The Mobile property sets the mobile email.
The mobile email address is set in the Personal Data dialog box.
To execute the example, add a link to the Metabase system assembly. Add work, personal, mobile email addresses to the profile of the current user of the repository:
Sub UserProc;
Var
Mb: IMetabase;
User: IMetabaseUser;
Prof: IUserProfile;
Emails: IUserEmails;
Begin
Mb := MetabaseClass.Active;
User := Mb.LogonSession.User;
Prof := User.Profile.Edit;
Emails := Prof.Emails;
Emails.Mobile := "user_mobile@example.ru";
Emails.Working := "user_work@example.ru";
Emails.Personal := "user_personal@example.ru";
Prof.Apply;
End Sub UserProc;
After executing the example work, personal and mobile email addresses will be added to the profile of the current user of the repository.
See also: