I got the following code
through thread184-874813.
It is working fine, can I validate whether the email is active or not?
Thanks
Saif
Code:
LOCAL loRegExp
m_email = ThisForm.ContMaster.txtEmail.Value
loRegExp = CreateObject("VBScript.RegExp")
loRegExp.IgnoreCase = .T.
loRegExp.Pattern = '^[A-Za-z0-9](([_\.\-]?[a-zA-Z0-9]+)*)@([A-Za-z0-9]+)(([\.\-]?[a-zA-Z0-9]+)*)\.([A-Za-z]{2,})$'
m.valid = loRegExp.Test(m_email)
RELEASE loRegExp
IF m.valid = .T.
MESSAGEBOX("Email is Correct",48)
ENDIF
through thread184-874813.
It is working fine, can I validate whether the email is active or not?
Thanks
Saif