Validasi Alamat Email
Berikut ini adalah fungsi untuk memeriksa valid tidaknya string yang berisikan alamat email.
Buat Module baru dan ketikkan :
Function IsEmail(ByVal Str As String) As Boolean
Set r = CreateObject("VBScript.RegExp")
r.IgnoreCase = True
r.Pattern = "^[\w-\.]+@\w+\.\w+$"
IsEmail = r.Test(Str)
End Function
Set r = CreateObject("VBScript.RegExp")
r.IgnoreCase = True
r.Pattern = "^[\w-\.]+@\w+\.\w+$"
IsEmail = r.Test(Str)
End Function
Contoh penggunannya ketikkan :
s = IsEmail("alamatemail@yahoo.com")
0 Komentar:
Posting Komentar
Pengunjung yang baik selalu meninggalkan jejak berupa komentar. :)
Berlangganan Posting Komentar [Atom]
<< Beranda