Как отформатировать конкретное почтовое значение в VBA

Question

Я хочу проверить определенное почтовое значение с помощью RegEx, используя vba.

Пример: aungkoko@desktopfromanoth.com

Введенное пользователем электронное письмо должно точно включать @desktopfromanoth.com.Могу ли я подтвердить это с помощью RegEx?

Мой код здесь:

Private Function ValidateEmailAddress(ByRef strEmailAddress As String) As Boolean  
    Dim objRegExp As New RegExp

    objRegExp.IgnoreCase = True
    objRegExp.pattern = "^[\w-\.]+@([a-z]{16}+\.)+[A-Za-z]{2,3}$"
    ValidateEmailAddress = objRegExp.Test(strEmailAddress)
End Function

Answer 1

Следующее будет подтверждено для любого электронного письма, которое заканчивается на @desktopfromanoth.com

^[_a-z0-9-]+(.[a-z0-9-]+)@desktopfromanoth\.com$

Для получения дополнительной информации см. Регулярное выражение адреса электронной почты, что 99,99% работает.

Если вы хотите сопоставить несколько адресов электронной почты, используйте следующее:

[_a-z0-9-]+(.[a-z0-9-]+)@desktopfromanoth\.com

См. https://regex101.com/r/PjQKDx/1

Answer 2

Обычно я использую этот, и он работает в большинстве случаев:

^\w+@[a-zA-Z_]+?\.[a-zA-Z]{2,3}$