Syntax einer EMail-Adresse prüfen Mit Hilfe von regulären Ausdrücken lässt sich die Syntax einer EMail-Adresse sehr leicht auf Plausibilität prüfen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  1.576
www.tools4vb.de	System:  Win9x, WinNT, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 1 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit Hilfe von regulären Ausdrücken können Strings sehr schnell und mit wenig Code-Aufwand mit einem vorgegeben Muster verglichen werden. Heute möchten wir Ihnen ein "Muster" vorstellen, mit dem sich die Syntax einer EMail-Adresse prüfen lässt und somit bereits im Vorfeld abgefragt werden kann, ob die vom Anwender eingegebene EMail-Adresse überhaupt existieren könnte.

Um reguläre Ausdrücke anwenden zu können, müssen Sie dem Projekt einen Verweis auf Microsoft VBScript Regular Expressions 5.x hinzufügen oder Sie verwenden Late-Binding, wie in unserem Tipp.

' Prüft die Syntax der E-Mail Adresse
Public Function IsValidEMail(ByVal sMail As String) As Boolean
  Dim sPattern As String
  Dim oRegEx As Object
 
  ' Syntax
  sPattern = "^([\w-äöüß]+\.)*?[\w-äöüß]+@[\w-]+\.([\w-äöüß]+\.)*?[\w]+$"
 
  ' RegExp via Late-Bindung instanzieren
  Set oRegEx = CreateObject("VBScript.RegExp")
  With oRegEx
    .Pattern = sPattern
 
    If .Execute(sMail).Count > 0 Then
      IsValidEMail = True
    End If
  End With
 
  Set oRegEx = Nothing
End Function

Aufrufbeispiel:

Dim sEMail As String
 
sEMail = "info@vbarchiv.net"
If Not IsValidEMail(sEMail) Then
  MsgBox "Die EMail-Adresse ist ungültig!"
End If