Validate E-Mail

Language: Deutsch
Programming Language: VBScript
Published by: Thomas
Last Update: 4/27/2006
Views: 805

Description

Validiert eine E-Mail-Adresse auf ihre Gültigkeit

Code

Display line numbers

1 Function ValidateEmail(ByRef strEmail) 2 strRegExpEmail = "^[a-zA-Z0-9]+[\w-\.]*@[a-zA-Z0-9]{1}[a-zA-Z0-9\-]{1,61}[a-zA-Z0-9]{1}\.([a-zA-Z]{2,6}|[a-zA-Z]{2}\.[a-zA-Z]{2,6})$" 3 Set objRegAusdr = New RegExp 4 objRegAusdr.Pattern = strRegExpEmail 5 objRegAusdr.IgnoreCase = True 6 Set Matches = objRegAusdr.Execute(strEmail) 7 If Matches.Count = 1 Then 8 ValidateEmail = True 9 Else 10 ValidateEmail = False 11 End If 12 End Function

No comments avaiable

Add a comment

Name *

Email (won't be displayed) *

Website

Comment *

Sicherheitscode Security Code *