Как отформатировать много писем с помощью регулярных выражений с помощью VBA

Question

С помощью vba я хочу проверять многие электронные письма, затем с помощью точки с запятой, каждое письмо должно заканчиваться на @ customercurrency.com, и пользователь может поместить 2, 3, 4 или много писем, как он хочет.Пример: aung@customercurrency.com; thet@customercurrency.com; htoo@customercurrency.com Мой код здесь. Но это может быть что-то не так.

Public Function ValidateEmailAddressWithSemi(ByRef strEmailAddress As String) As Boolean
    'Create Regular expression object
    Dim objRegExp As New RegExp

    'Set Case insensitive
    objRegExp.IgnoreCase = True
     objRegExp.pattern = "^\s?([_a-z0-9-]+(.[a-z0-9-]+)@customconcurrency.com)+([;.]([_a-z0-9-]+(.[a-z0-9-]+)@customconcurrency.com)*$"
    ValidateEmailAddress = objRegExp.Test(strEmailAddress)

End Function

Answer 1

попробуйте этот шаблон:

"^\s?([_a-z0-9-]+(.[a-z0-9-]+)@customercurrency.com)+([;.]([_a-z0-9-]+(.[a-z0-9-]+)@customercurrency.com))*$"

(ошибка в имени домена и пропажа отсутствует)