Email Validation

[clipper6]

Is there someone willing to share their email validation code or point me to a library or contrib. I don't want to make it from scratch.

[Riztan Gutierrez]

Hi, I hope you can serve this function.

Function IsMail(cMail)
   Local lResp := .f.
   Local cRegExp

   cRegExp := "^[_a-z0-9-]+(\.[_a-z0-9-]+)"
   cRegExp += "*@[a-z0-9-]+(\.[a-z0-9-]+)*"
   cRegExp += "(\.[a-z]{2,3})$"

   lResp := hb_RegExMatch( cRegExp, cMail )
return lResp

2014-12-01 20:54 GMT-04:30 clipper6 <arl...@gmail.com>:

Is there someone willing to share their email validation code or point me to a library or contrib. I don't want to make it from scratch.

--
--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: http://groups.google.com/group/harbour-users

---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

--

---

Riztan Gutiérrez

• t-gtk.org
• paper.li
• Linux User: # 494267
• Ubuntu User: # 28329

---

[clipper6]

Thanks a lot.

[Qatan]

Hello,

 

It may be a question of what is a valid email anyway...

Please look this: http://www.regular-expressions.info/email.html

 

I personally prefer:

 

FUNCTION IsMail( cMail )

RETURN   LEN( hb_regex( '^[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}$', ALLTRIM( cMail ), .F. ) ) == 1

 

But other options are valid as well... depend on what you want to validate.

 

Qatan

 

 

From: Riztan Gutierrez

Sent: Tuesday, December 02, 2014 3:39 AM

To: harbou...@googlegroups.com

Subject: Re: [harbour-users] Email Validation

Hi, I hope you can serve this function.

 

Function IsMail(cMail)
   Local lResp := .f.
   Local cRegExp

   cRegExp := "^[_a-z0-9-]+(\.[_a-z0-9-]+)"
   cRegExp += "*@[a-z0-9-]+(\.[a-z0-9-]+)*"
   cRegExp += "(\.[a-z]{2,3})$"

   lResp := hb_RegExMatch( cRegExp, cMail )
return lResp

2014-12-01 20:54 GMT-04:30 clipper6 <arl...@gmail.com>:

Is there someone willing to share their email validation code or point me to a library or contrib. I don't want to make it from scratch.

--
--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.

Unsubscribe: mailto:harbour-users%2Bunsu...@googlegroups.com

Web: http://groups.google.com/group/harbour-users

---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

 

--

 

---

Riztan Gutiérrez

• t-gtk.org
• paper.li
• Linux User: # 494267
• Ubuntu User: # 28329

---

 

[Riztan Gutierrez]

Qatan, thank's!