CheckValidEmailAddress in codeunit 9520 "Mail Management"

[TabrezAjaz]

Hi everyone,

I have gone through the CheckValidEmailAddress procedure in the "Mail Management" codeunit it looks like the code is incomplete, I was trying to enter some email addresses in table 18 Customer the field "E-Mail" accepting everything if it contains an @ symbol in between the text and it also allowed multiple dots in right part of the @ symbol as you can see in the attached image:

In contrast to unquoted local-parts, the addresses ".John.Doe"@example.com, "John.Doe."@example.com and "John..Doe"@example.com are allowed. So I am ignoring multiple ... dots on the left side of the @ symbol but on right side multiple dots are not allowed.

My code sample:

procedure CheckValidEmailAddress(EmailAddress: Text)
var
    InvalidEmailAddressErr: Label 'The email address "%1" is not valid.', Comment = '%1 - Recipient email address';
    arrayList: List of [Text];
begin
    EmailAddress := DelChr(EmailAddress, '<>');

    if EmailAddress.StartsWith('@') or EmailAddress.EndsWith('@') then
        Error(InvalidEmailAddressErr, EmailAddress);

    if EmailAddress.Contains(' ') then
        Error(InvalidEmailAddressErr, EmailAddress);

    if EmailAddress.Split('@').Count() <> 2 then
        Error(InvalidEmailAddressErr, EmailAddress);

    if EmailAddress.Split('.').Count() < 1 then
        Error(InvalidEmailAddressErr, EmailAddress);

    if not EmailAddress.Contains('.') then
        Error(InvalidEmailAddressErr, EmailAddress);

    // Split local-part and domain
    arrayList := EmailAddress.Split('@');
    if arrayList.Count = 2 then begin

        // Check for 2 consecutive dots
        if Format(arrayList.Get(2)).Contains('..') then
            Error(InvalidEmailAddressErr, EmailAddress);

        // Check is domain part is start or end with dot (.)
        if Format(arrayList.Get(2)).StartsWith('.') or Format(arrayList.Get(2)).EndsWith('.') then
            Error(InvalidEmailAddressErr, EmailAddress);
       
    end;
end;

---

I know this is not what fulfills everyone's requirement, but thanks to Microsoft for an integration event that we can subscribe to add more conditions to existing E-Mail fields from where CheckValidEmailAddress method is called.

Thanks,
Tabrez Ajaz