Page 8884 Email User-Specified Address in 24

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------

namespace System.Email;

/// <summary>
/// A page to enter an email address.
/// </summary>
page 8884 "Email User-Specified Address"
{
    Caption = 'Enter Email Address';
    PageType = StandardDialog;

    layout
    {
        area(Content)
        {
            group(EmailAddressGroup)
            {
                ShowCaption = false;
                field(EmailAddressField; EmailAddresses)
                {
                    ApplicationArea = Basic, Suite, Invoicing;
                    Caption = 'Email Address';
                    ToolTip = 'Specifies the email address of the recipient.';
                    ShowMandatory = true;
                    NotBlank = true;
                    ExtendedDatatype = EMail;

                    trigger OnValidate()
                    var
                        EmailAccount: Codeunit "Email Account";
                    begin
                        EmailAccount.ValidateEmailAddresses(EmailAddresses);
                    end;
                }
            }
        }
    }

    var
        EmailAddresses: Text;

    /// <summary>
    /// Gets the email address(es) that has been entered.
    /// </summary>
    /// <returns>Email address(es)</returns>
    procedure GetEmailAddress(): Text
    begin
        exit(EmailAddresses);
    end;

    /// <summary>
    /// Sets the inital value to be displayed.
    /// </summary>
    /// <param name="Address">The value to be prefilled</param>
    procedure SetEmailAddress(Address: Text)
    begin
        EmailAddresses := Address;
    end;
}