Splits multiple email ids in to (List of Text) data type before sending an email notifications to someone through AL code.

EmailSplits('abc@gmail.com;xyz@gmail.com');

SmtpMail: Codeunit "SMTP Mail";

SmtpConf: Record "SMTP Mail Setup";

EmailBody: text;

SmtpMail.CreateMessage('Checking multiple Emails', SmtpConf."User ID", 

                        Receipt, 'Emails ', EmailBody, true);

        

    local procedure EmailSplits(EmaifieldValue: Text[250])

    var

        PosBgn: Integer;

        ValueLength: integer;

        PosEnd: Integer;

        SplitValue: Text;

    begin

        PosBgn := 1;

        ValueLength := STRLEN(EmaifieldValue);

        REPEAT

            IF STRPOS(EmaifieldValue, ';') = 0 THEN

                PosEnd := ValueLength

            ELSE

                PosEnd := (STRPOS(EmaifieldValue, ';') - 1);

            SplitValue := COPYSTR(EmaifieldValue, PosBgn, PosEnd);

            EmaifieldValue := DELSTR(EmaifieldValue, 1, PosEnd + 1);

            Receipt.Add(SplitValue);

        UNTIL EmaifieldValue = '';

    end;