تشخیص صحیح بودن ایمیل وارد شده توسط کاربر

[mohammad-alone 564]

با درود

چون زیا دبرا خودم پیش اومده که نیاز داشتم به اینکه آیا کاربر آدرس ایمیل معتبر وارد کرده یا خیر، که البته با گشت و گذاری که در انجمن داشتم به پاسخ مطلوبم نرسیدم، این کد رو برای دوستان قرار میدم

موفق تر باشید :

 

 

Sub Verify_Email(Mail as String) As Boolen
    Dim eMatch As Matcher
    eMatch = Regex.Matcher("\w+@\w+\.\w+", eAddress)
	Return eMatch.Find 
End Sub