E-posta adresi sınama- RegExp nesnesi

Bu yazıyı exceltr.net altında okumak için  tıklayın

---

 

Merhaba,
Bu yazıda sizinle bir e-posta alanına girilen metnin e-posta kurallarına uygun olup olmadığını kontrol eden bir fonksiyon yazıcaz.
Herhangi bir dille böyle bir kontrol yapmak isteseydiniz bulacağınız en etkili araç “düzenli ifadeler” (regular expression) olurdu. VBA içerisinde de bu amaçla bir nesne var : VBScript RegExp

Fonksiyonumuz da , e-posta adresinin kurallı olup olmadığını kontrol etmek için regular expression kullanıyor.
Regular Expression hakkında bilgi sahibi değilseniz : http://en.wikipedia.org/wiki/Regular_expression .

ve fonksiyonumuz :

Private Function EPostaDogrula(Value As String) As Boolean  
    Dim RE As Object
    Set RE = CreateObject("vbscript.RegExp")
    RE.Pattern = "^[a-zA-Z0-9\._-]+@([a-zA-Z0-9_-]+\.)+([a-zA-Z]{2,3})$"
    EPostaDogrula = RE.Test(Value)
    Set RE = Nothing
End Function