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:	Views:  8.604
www.tools4vb.de	System:  Win9x, WinNT, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.