How to make an e-mail Mask Format

السلام عليكم

تستطيع التحقق من صلاحية قيمة البريد عن طريق Regx إليك ذلك.

Imports System.Text.RegularExpressions


	' متغير ثابت للتحقق من البريد الإلكتروني
	Const EmailRX As String = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"


'The Function Check if the Field contents a valid Email Address ......
	'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
	Public Function ValidateEmail(ByVal EmailAddress As String) As Boolean
		Try
			Dim rx As New Regex(EmailRX)
			Return rx.IsMatch(EmailAddress)
		Catch ex As FormatException
			Throw ex
		Catch ex As Exception
			Throw ex
		End Try
	End Function

هذه الوظيفة إذا أرجعت القيمة True فالبريد الالكتروني صحيح و False غير صحيح من حيث تركيبة البريد .