title image


Smiley könnte so gehen


Sub test3()

   Const MADRESSE = "a1@wee.com"

   MsgBox CStr(PruefeMailaddresse(MADRESSE)), vbInformation

End Sub



Function PruefeMailaddresse(ma$) As Boolean

 

 Dim tmp$(), i%

 tmp = Split(ma, "@")

 ' gibts ein @ in der Addresse ?

 If UBound(tmp) <> 1 Then PruefeMailaddresse = False: Exit Function

 ' ist im 2. Teil ein .

 If InStr(1, tmp(1), ".") = 0 Then PruefeMailaddresse = False: Exit Function

 ' prüfe auf unerlaubte Sonderzeichen

 For i = 1 To Len(ma)

   If Not (Asc(Mid(ma, i, 1)) > 47 And Asc(Mid(ma, i, 1)) < 58 Or _

       Asc(Mid(ma, i, 1)) > 96 And Asc(Mid(ma, i, 1)) < 123 Or _

        Asc(Mid(ma, i, 1)) > 64 And Asc(Mid(ma, i, 1)) < 91 Or _

        Mid(ma, i, 1) = "@" Or _

        Mid(ma, i, 1) = ".") Then

        ' die Abfrage kann beliebeig erweitert werden und andere Zeichen erlaubt werden

        

        PruefeMailaddresse = False: Exit Function

    End If

 Next i

 PruefeMailaddresse = True

End Function Code eingefügt mit Syntaxhighlighter 1.16

Knofi So wie wir heute arbeiten, werden morgen die Beamten leben ...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: