首页 > 解决方案 > 如何在 VBA 中格式化特定的邮件值

问题描述

我想使用 vba 使用 RegEx 验证特定的邮件值。

例子: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

标签: excelvba

解决方案


以下将验证任何以结尾的电子邮件@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


推荐阅读