Tayfun
| | Tarih: 10.12.2006, 23:45 Mesaj konusu: Yazılan Mail Karakterlerinden Mailin Doğruluğunu Kontrol Etm | |
| 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
-----------------------------------------------------
|
|
