check auf korrekte Email Adressen

12/06/2008 - 15:39 von thomas müller | Report spam
hallo,

gibt es in 2007 die Möglichkeit Email Adressen auf ihre Korrektheit zu
checken?

Ich hatte mit folgendes vorgestellt:
1. Check ob Zeichenkette vor dem @ alphanumerisch ist.
2. Check ob danach @ kommt.
3. Check ob nach @ wieder alphanumerische Zeichenkette kommt.
4. Check ob danach Punkt kommt
5. Check ob nach Punkt eine Zeichenkette aus Buchstaben kommt, zw. 2 und
4 Zeichen lang...

Wenn diese Bedingungen nicht erfüllt sind, jeweilige Zelle rot fàrben..

Gibt es da eine Möglichkeit?

danke

thomas
 

Lesen sie die antworten

#1 Peter Schleif
12/06/2008 - 16:50 | Warnen spam
thomas müller schrieb am 12.06.2008 15:39 Uhr:

1. Check ob Zeichenkette vor dem @ alphanumerisch ist.
2. Check ob danach @ kommt.
3. Check ob nach @ wieder alphanumerische Zeichenkette kommt.
4. Check ob danach Punkt kommt
5. Check ob nach Punkt eine Zeichenkette aus Buchstaben kommt, zw. 2 und
4 Zeichen lang...

Wenn diese Bedingungen nicht erfüllt sind, jeweilige Zelle rot fàrben..



Du könntest es mit der einer VBA-Function überpfüen. Stehen in A1:A3
Mail-Adressen, so lauten die Bedingungen für die bedingte Formatierung:

Formel ist =NICHT(mail_check(A1))
Formel ist =NICHT(mail_check(A2))
Formel ist =NICHT(mail_check(A3))


Function mail_check(str As String) As Boolean
Static regex As Object

If regex Is Nothing Then
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "^[\w.-]+@[\w.-]+\.[A-Za-z]{2,4}$"
End If

mail_check = regex.test(str)
End Function


Die Prüfung erfüllt deine Anforderung ist allerdings nicht annàhernd
vollstàndig. Eine gültige E-Mail-Adresse kann wesentlich komplexer
sein. AFAIK ist/war RFC822 eine wichtige Anlauf-Station:

http://ex-parrot.com/~pdw/Mail-RFC822-Address.html

Peter

Ähnliche fragen