Page 8944 Email Address Lookup, source in 25

// ------------------------------------------------------------------------------------------------
// 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>
/// Page to view suggested addresses.
/// </summary>
page 8944 "Email Address Lookup"
{
    PageType = List;
    SourceTable = "Email Address Lookup";
    Caption = 'Suggested Email Addresses';
    UsageCategory = None;
    InsertAllowed = false;
    ModifyAllowed = false;
    DeleteAllowed = false;
    Extensible = true;
    PromotedActionCategories = 'New,Process,Report,Full Address Lists';

    layout
    {
        area(Content)
        {
            group(EntityGroup)
            {
                ShowCaption = false;

                field("Type of entity"; EntityType)
                {
                    ApplicationArea = All;
                    Caption = 'Select entity';
                    ToolTip = 'Specifies the type of entity to show';

                    trigger OnValidate()
                    begin
                        UpdateRecords();
                    end;
                }
            }

            repeater(GroupName)
            {
                field("Email Address"; Rec."E-Mail Address")
                {
                    ApplicationArea = All;
                    ToolTip = 'Specifies the E-Mail Address.';
                }
                field(Name; Rec.Name)
                {
                    ApplicationArea = All;
                    ToolTip = 'Specifies the Name.';
                }
                field(Company; Rec.Company)
                {
                    ApplicationArea = All;
                    ToolTip = 'Specifies the Company.';
                }
            }

        }
    }

    actions
    {
        area(Processing)
        {
            action(Users)
            {
                ApplicationArea = All;
                Promoted = true;
                PromotedOnly = true;
                PromotedCategory = Category4;
                Caption = 'Users';
                ToolTip = 'Add addresses from Users.';
                Image = Employee;

                trigger OnAction()
                begin
                    LookupFullAddressList(EntityType::User);
                end;
            }
        }
    }

    trigger OnOpenPage()
    var
        UserHelpNotification: Notification;
    begin
        FullAddressLookup := false;
        if Rec.IsEmpty() then begin
            UserHelpNotification.Message := UserHelpNotificationTxt;
            UserHelpNotification.Send();
        end;
        UpdateRecords();
    end;

    procedure WasFullAddressLookup(): Boolean
    begin
        exit(FullAddressLookup);
    end;

    internal procedure SetEntityType(EmailAddressEntity: Enum "Email Address Entity")
    begin
        EntityType := EmailAddressEntity;
    end;

    protected procedure LookupFullAddressList(EmailAddressEntity: Enum "Email Address Entity")
    var
        EmailAddressLookup: Record "Email Address Lookup";
        EmailAddressLookupImpl: Codeunit "Email Address Lookup Impl";
    begin
        if EmailAddressLookupImpl.LookupEmailAddress(EmailAddressEntity, EmailAddressLookup) then begin
            Clear(Rec);
            EmailAddressLookup.FindSet();
            repeat
                if (not Rec.Get(EmailAddressLookup."E-Mail Address", EmailAddressLookup.Name, EmailAddressLookup."Entity type")) then begin
                    Rec.TransferFields(EmailAddressLookup);
                    Rec.Insert();
                    Rec.Mark(true);
                end;
            until EmailAddressLookup.Next() = 0;
            FullAddressLookup := true;

            EntityType := EmailAddressEntity;
        end;
    end;

    internal procedure UpdateRecords()
    begin
        Rec.SetFilter("Entity type", Format(EntityType));
        CurrPage.Update();
    end;

    procedure GetSelectedSuggestions(var EmailAddressLookup: Record "Email Address Lookup")
    begin
        if FullAddressLookup then
            Rec.MarkedOnly(true)
        else
            CurrPage.SetSelectionFilter(Rec);

        if not Rec.FindSet() then
            exit;

        repeat
            EmailAddressLookup.TransferFields(Rec);
            EmailAddressLookup.Insert();
        until Rec.Next() = 0;
    end;

    procedure AddSuggestions(var EmailAddressLookup: Record "Email Address Lookup")
    begin
        if EmailAddressLookup.FindSet() then
            repeat
                Rec.Copy(EmailAddressLookup);
                Rec.Insert();
            until EmailAddressLookup.Next() = 0;

        // Sort list
        Rec.SetCurrentKey(Company, Name);
        Rec.SetAscending(Company, true);
    end;

    protected var
        EntityType: Enum "Email Address Entity";

    var
        FullAddressLookup: Boolean;
        UserHelpNotificationTxt: Label 'No address suggestions were found. Click the menu action "Full Address Lists" to search for more email addresses.';
}