Mobile: String;
Mobile: System.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.
Add work, personal, mobile email addresses to the profile of the current user of the repository. The specified procedure is an entry point for the .NET assembly.
Public Shared Sub Main(Params: StartParams);
Var
Mb: IMetabase;
User: IMetabaseUser;
Prof: IUserProfile;
Emails: IUserEmails;
Begin
Mb := Params.Metabase;
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;
The result of the example execution matches the one in the Fore Example.
See also: