FUNCTION ValidEmailAddr(cAddr AS STRING) AS LOGIC
LOCAL nAtPos,nPerPos AS DWORD
LOCAL lReturn := TRUE
*ErrorBox{,cAddr}:Show()
IF SLen(cAddr) > 0
nAtPos := At("@",cAddr)
// if not found - error
IF nAtPos < 2
lReturn := FALSE
ELSE
nPerPos := At3(".",cAddr,nAtPos)
IF nPerPos == 0
lReturn := FALSE
ELSE
IF (nPerPos - nAtPos) < 2
lReturn := FALSE
ELSE
// min of 1 character after
period
IF SLen(cAddr) - nPerPos < 1
lReturn := FALSE
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
RETURN lReturn
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Pritpal Bedi
Sent: Thursday, June 26, 2008 11:34 PM
To: harbour@harbour-project.org
Subject: [Harbour] OT - E-Mail Address Verification
Hello All,
Is there a way to verify if an email address is valid or fake ?
I am looking for pure Harbour solution.
Regards
Pritpal Bedi
--
View this message in context:
http://www.nabble.com/OT---E-Mail-Address-Verification-tp18143143p181431
43.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
