Es sollten so Sachen geprüft werden wie
* keine unerlaubten Zeichen
* @ vorhanden?
* gültige TLD
...
danke!
hiermit wird die Syntax geprüft:
Gruß
Steffen D
Zunehmend setzt sich durch, dass kein Formular mehr ohne E-Mail-Adresse ist. Was im Internet möglich ist, lässt sich auch mit Visual Basic realisieren. Hierzu muss lediglich ein Verweis (siehe Kurztipps, Verweise und Komponenten einbinden) auf die Microsoft VBScript Regular Expressions Bibliothek gesetzt werden, um das RegExp-Objekt nutzen zu können.
Mit diesem Objekt, das auch bei der ASP- und Script-Programmierung eingesetzt werden kann, ist es möglich, eine eingegebene E-Mail-Adresse auf ihre Gültigkeit (regulärer Ausdruck) zu prüfen.
Das RegExp-Objekt lässt sich vielfältig einsetzen, wie z.B. auch zur Gültigkeitsprüfung von Postleitzahlen, Telefonnummern usw., um Textteile zu vergleichen, zu ersetzen oder auch zu entfernen.
Option Explicit
Dim myReg As RegExp
Private Sub cmdEmail_Click()
TestEmail txtEmail.Text
End Sub
Private Function TestEmail(ByVal vstrEmail As String)
Dim strMsg As String
Dim blnTest As Boolean
Set myReg = New RegExp
myReg.Pattern = "^[\w\.\-]{2,63}\@[\w\.\-]{3,63}\.[a-zA-Z]{2,4}$"
myReg.IgnoreCase = True
blnTest = myReg.Test(vstrEmail)
If blnTest = True Then
strMsg = "E-Mail-Adresse ist gültig."
Else
strMsg = "E-Mail-Adresse ist ungültig."
End If
MsgBox strMsg, vbOKOnly, "E-Mail-Test"
txtEmail.SetFocus
Set myReg = Nothing
End Function
ich weiß nicht ob mit Excel97 geht, ich habe excel200 und dort gehts...
du musst nur den Verweis auf Microsoft VBScript Regular Expressions Bibliothek setzen!
ich habe den Code nicht selber geschrieben, sondern bei vb-fun.de gefunden...
Gruß
Steffen D