Prüfung E-Mail-Adresse Code-Frage
05.09.2018 10:29:28
SteffenS77
ich habe im Netz folgendes Code-Schnipsel zur Validierung einer E-Mail-Adresse gefunden. Voraussetzung ist, dass ich einen Verweis auf die "Microsoft VBScript Regular Expressions" setze.
Nun meine Fragen:
Funktioniert der Verweis unabhängig von der Excel Version ab 2010 oder gibt es da ggf. Einschränkungen?
Zudem erhalte ich als Ergbnis der Contante zurück. Ich möchte allerdings nur ein wahr oder falsch zurück bekommen. Muss ich da noch etwas anpassen.
Public Function ValidateEmail(ByVal strEmail As String) As Boolean
Const cPatternSmall = "^[a-z0-9\-\.]{2,63}@[a-z0-9\-\.]{2,63}\.[a-z]{2,4}$"
Const cPatternRFC2822 = "[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|" & _
"}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:" & _
"[a-z0-9-]*[a-z0-9])?"
MsgBox cPatternRFC2822
Dim myReg As RegExp
Set myReg = New RegExp
myReg.Pattern = cPatternRFC2822 ' Durch cPatternSmall ersetzen für einfachen Test
myReg.IgnoreCase = True
ValidateEmail = myReg.test(strEmail)
Set myReg = Nothing
End Function
VG und Danke schon einmal
SteffenS