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

Contoh penggunannya ketikkan :

s = IsEmail("alamatemail@yahoo.com")