---

Verilen e-mail adresinin geçerli olup olmadığını (stringe bakarak) belirler ve True/False Boolean döndürür.

not : Regular Expression benim tarafımdan yazılmadı. Sahibini de hatırlamıyorum maalesef.



Function P13_EmailChecker(email)
Dim regEx, Match, Matches
If email <> "" Then
Set regEx = New RegExp
regEx.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
regEx.IgnoreCase = True
If regEx.Test(email) Then P13_EmailChecker = True Else P13_EmailChecker = False
End If
End Function

---