E-Mail Adresse auf Gültigkeit überprüfen

[TigerLilly]

In meinem Code habe ich uralte RegEx-Tests, um eine E-Mail Adresse auf formale Gültigkeit zu prüfen. Ich habe gesucht, aber nicht gefunden, ob die Delphi 11.3 RTL oder StrUtils oder sonst eine Unit von Delphi mittlerweile da auch was haben.

Danke für Erleuchtung. :- )

[Der schöne Günther]

Ich habe keine vorgefertigte Funktion aus der Delphi-RTL, also strenggenommen keine Antwort auf deine Frage, aber will trotzdem mahnend Postel's Law erwähnen.

Zitat:

“be conservative in what you do, be liberal in what you accept from others”

„sei streng bei dem, was du tust, und offen bei dem, was du von anderen akzeptierst“

– RFC 761

Wie oft haben mir schon irgendwelche Oberflächen meine vollkommen gültige Email-Adresse um die Ohren gehauen, sie sei nicht gültig 🙄

[dummzeuch]

Google Bard behauptet, diese RegEx sei dafür geeignet:

Delphi-Quellcode:

function ValidateEmail(const Email: string): Boolean;
var
  Regex: TRegEx;
begin
  Regex := TRegEx.Create('^[a-zA-Z0-9_.+-]+@[a-zA-Z0-9-]+\.[a-zA-Z]{2,6}$');
  Result := Regex.Exec(Email);
end;

Zitat:

Zitat:

Does this also work for umlaut domains and all kinds of local parts used e.g. in China?

Yes, the regular expression pattern I provided is also compatible with umlaut domains and all kinds of local parts used in China. This is because the pattern only specifies the characters that are allowed in the local part and the domain part, and does not make any distinction between different languages.

For example, the following email addresses are all valid according to the regular expression pattern:

test@äpfel.de (umlaut domain)
张三@qq.com (Chinese local part)
中文@126.com (Chinese local part with spaces)
However, it is important to note that not all email providers support all characters. For example, some providers may not support umlauts in the local part. So, it is always a good idea to test an email address with the actual email provider before sending an email to it.

Here are some additional resources that you may find helpful:

RFC 5322: Internet Message Format: https://tools.ietf.org/html/rfc5322
Regular Expressions Tutorial: https://www.regular-expressions.info/tutorial.html

Ehrlich gesagt, bin ich da skeptisch. Ich habe schon so häufig RegEx-Strings gefunden, die E-Mails validieren sollen, die dann doch irgendwo versagt haben.

Hier ist z.B. eine Liste von E-Mail Adressen, mit denen man testen kann:

https://gist.github.com/cjaoude/fd9910626629b53c4d25

[Gausi]

Ich hab sowas neulich auch gesucht, und bin dann ebenfalls bei den "uralten RegEx" hängen geblieben. Die ist zwar so lang, dass ich die nicht wirklich nachvollziehen kann, scheint aber soweit zu funktionieren.

Delphi-Quellcode:

REGEX_EMAIL =  '^((?>[a-zA-Z\d!#$%&''*+\-/=?^_`{|}~]+\x20*|"((?=[\x01-\x7f])'
           +'[^"\\]|\\[\x01-\x7f])*"\x20*)*(?<angle><))?((?!\.)'
           +'(?>\.?[a-zA-Z\d!#$%&''*+\-/=?^_`{|}~]+)+|"((?=[\x01-\x7f])'
           +'[^"\\]|\\[\x01-\x7f])*")@(((?!-)[a-zA-Z\d\-]+(?<!-)\.)+[a-zA-Z]'
           +'{2,}|\[(((?(?<!\[)\.)(25[0-5]|2[0-4]\d|[01]?\d?\d))'
           +'{4}|[a-zA-Z\d\-]*[a-zA-Z\d]:((?=[\x01-\x7f])[^\\\[\]]|\\'
           +'[\x01-\x7f])+)\])(?(angle)>)$';

Hatte bei mir aber auch keine Priorität, da ich die nur als optionalen Parameter für eine online-Abfrage brauche. Per default wird eine hard codierte Adresse genommen, die formal gültig ist, aber nicht existiert. Wenn der User dort was einträgt, was der Dienst dann als ungültig empfindet, kann ich da dann auch nichts dran ändern. :stupid:

Zitat:

Zitat von Der schöne Günther (Beitrag 1525678)

Wie oft haben mir schon irgendwelche Oberflächen meine vollkommen gültige Email-Adresse um die Ohren gehauen, sie sei nicht gültig 🙄

Kenn ich auch. Facebook war damals z.B. auch der Meinung, dass meine Adresse ungültig ist.

[MEissing]

test@äpfel.de
scheitert schonmal :-)
Ebenso matthias@eißing.de

BTW: Exec oder IsMatch von TRegEx?

[Neutral General]

Delphi-Quellcode:

.+@.+\..+

:mrgreen:

[TigerLilly]

Ich habe eine recht einfache Frage gestellt. Seids bitte so nett und antwortet darauf + oder beschränkt Euch aufs mitlesen.

[Neutral General]

Die Frage ist eben nicht so einfach wie du denkst.
Und die Antwort ist, dass es wahrscheinlich keinen großen Sinn macht zu viel Zeit und Energie da rein zu stecken weil du am Ende ne riesige RegEx hast die dann doch nicht zu 100% klappt und entweder manche gültige Adressen nicht durchlässt oder/und ungültige durchlässt

[Gausi]

Zitat:

Zitat von Neutral General (Beitrag 1525690)

Die Frage ist eben nicht so einfach wie du denkst.

Nuja, die Frage ist ja eigentlich, ob da bei Delphi direkt was dabei ist, was man nutzen kann. ;-)

Ich habe bei meiner Suche neulich nichts gefunden, und habe dann irgendwo diesen Monster-RegEx gefunden. Das Ding von Google Bard ist deutlich zu einfach gestrickt, und der erläuternde Text dazu darunter ist schlicht falsch, denke ich.

[Uwe Raabe]

Zitat:

Zitat von TigerLilly (Beitrag 1525688)

Ich habe eine recht einfache Frage gestellt.

Genau genommen hast du das gar nicht!

Zitat:

Zitat von TigerLilly (Beitrag 1525675)

In meinem Code habe ich uralte RegEx-Tests, um eine E-Mail Adresse auf formale Gültigkeit zu prüfen. Ich habe gesucht, aber nicht gefunden, ob die Delphi 11.3 RTL oder StrUtils oder sonst eine Unit von Delphi mittlerweile da auch was haben.

Danke für Erleuchtung. :- )

[TigerLilly]

Dann formuliere ich gern um:

In meinem Code habe ich uralte RegEx-Tests, um eine E-Mail Adresse auf formale Gültigkeit zu prüfen. Ich habe gesucht, aber nicht gefunden, ob die Delphi 11.3 RTL oder StrUtils oder sonst eine Unit von Delphi mittlerweile da auch was haben.

Kann mir wer sagen, ob es da etwas gibt?

[Der schöne Günther]

In Embarcaderos Beispielen unter
https://github.com/Embarcadero/RADStudio11Demos/

gibt es auch:

Delphi-Quellcode:

        lbType.Caption := 'Email for validation';
        MemoRegEx.Lines.Text := '^((?>[a-zA-Z\d!#$%&''*+\-/=?^_`{|}~]+\x20*' +
          '|"((?=[\x01-\x7f])[^"\\]|\\[\x01-\x7f])*"\' +
          'x20*)*(?<angle><))?((?!\.)(?>\.?[a-zA-Z\d!' +
          '#$%&''*+\-/=?^_`{|}~]+)+|"((?=[\x01-\x7f])' +
          '[^"\\]|\\[\x01-\x7f])*")@(((?!-)[a-zA-Z\d\' +
          '-]+(?<!-)\.)+[a-zA-Z]{2,}|\[(((?(?<!\[)\.)' +
          '(25[0-5]|2[0-4]\d|[01]?\d?\d)){4}|[a-zA-Z\' +
          'd\-]*[a-zA-Z\d]:((?=[\x01-\x7f])[^\\\[\]]|' +
          '\\[\x01-\x7f])+)\])(?(angle)>)$';

Ich meine, großartig. Da weiß man echt auf den ersten Blick was gemeint ist.

[shebang]

Die in meinen Augen einzige wirkliche Lösung wäre, direkt beim Mailserver nachzufragen, ob die Adresse existiert.

[dummzeuch]

Zitat:

Zitat von MEissing (Beitrag 1525685)

test@äpfel.de
scheitert schonmal :-)
Ebenso matthias@eißing.de

BTW: Exec oder IsMatch von TRegEx?

Gute Frage. Ich habe der künstlichen "Intelligenz" da mal vertraut, dass sie zumindest sowas wie den Aufruf einer RegEx in Delhpi hinbekommt (das sind schließlich gerade mal 7 Zeilen Code!). Eigentlich hätte ich es besser wissen sollen.

OK, ist wieder an der Frage vorbei.

Kurze Antwort: Nein.

[Jasocul]

Zitat:

Zitat von shebang (Beitrag 1525695)

Die in meinen Augen einzige wirkliche Lösung wäre, direkt beim Mailserver nachzufragen, ob die Adresse existiert.

Das bringt nichts. Je nach Einstellung liefert der auch ein OK zurück, wenn die Adresse nicht existiert. Z.B. wenn ein Sammelpostfach für nicht vorhandene Adressen eingerichtet ist.
Außerdem:
- Kein Internet (oder keine Berechtigung) -> Keine Prüfung möglich
- Adressen, die noch nicht existieren (z.B. bei Neuanlage), lassen sich so auch nicht prüfen
- Server-Ausfall
- temporäre Sperre der Adresse oder des Servers
- Relaying denied
- etc.

[ringli]

Ich werde wahrscheinlich gleich gesteinigt, aber warum nicht einfach so:

Delphi-Quellcode:

var IsValidMail : Boolean := System.Masks.MatchesMask('[e-mail]', '*@*');

Natürlich wird es damit keine 100%-tige Sicherheit geben, aber in den meisten Fällen sollte das doch eigentlich ausreichen statt mit aufwendigen RegEx-Ausdrücken zu arbeiten.

[himitsu]

Es gibt ja diese netten "vollständigen" RegEx, die gefühlrt über zwei UHD-Monitore bei 10 dot

aber am Ende war alles irgendwie sch**, weil ständig einige Sonderfälle fehlten (asiaten, russen, die "neuen" Umlautdomains usw.)

[KodeZwerg]

Zitat:

Zitat von TigerLilly (Beitrag 1525688)

Ich habe eine recht einfache Frage gestellt. Seids bitte so nett und antwortet darauf + oder beschränkt Euch aufs mitlesen.

Die Antwort auf Deine Frage: Mach es wie die großen, lasse EMails validieren indem Du eine Validierungs Mail verschickst, entweder läßt Du damit einen Link öffnen von einer Seite die Du hostest oder per Rückmail oder beides, je nachdem wie Du es brauchst.

Alles was RegEx Dir bieten kann, ist eine filterung aber keine Prüfung auf Gültigkeit.

Bei meiner Variante kommt dann noch hinzu wie streng Du das ganze nimmst, ob TempMail server erlaubt sind etc...

[himitsu]

Nja, ein einfaches

Delphi-Quellcode:

.*[a-z].*@.*[a-z].*[.][a-z]{2,}

geht meistens,
ABER auch wenn man erstmal denkt die TLD sind immer zwei oder mehr Buchstaben ...

Tja, das war einmal ... seit es bei uns "Sprechendes" wie .sex .porn .store .bank .author .fishing oder .academy gibt, wollten die Anderen das auch und schon hat man den Salat.
https://tld-list.com/tlds-from-a-z
.москва (.moscow)
.تونس (.tunesia)
.ਭਾਰਤ (.india)
.グーグル (japanisches .google)
.亚马逊 (.amazon auf chinesisch :lol:)
.삼성 (.samsung)

TLDs werden doch nicht mit Punicode geschrieben?
Die "Umlaut"-Domains selber sind in Punicode, also "normale" Buchstaben.
Aber Links vom @ wird es dann auch wieder wild.



Was mindestens da sein muß, ist das @ und hinten ein Punkt ... außer für Mails im Intranet, z.B. auf Localhost oder einen Gerätenamen.

Delphi-Quellcode:

.+@.+\..+

:D

Und gegen sowas wie a@b.c hilft dann eh nur, wenn man die Adresse tatsächlich validiert, also versucht mit ihr zu reden. :angle:






[add]
Also, auch die TLD werden als Punycode übertragen, also besteht fast die ganze Mailadrresse eigentlich nur aus Buchstaben und Zahlen und . und - und dem @,
aber nun kommt es drauf an, ob du die interne Darstellung speicherst, oder das tatsächlich sichtbare Eingabe, weil da ist fast alles erlaubt.

.ਭਾਰਤ = .xn--s9brj9c

Delphi-Quellcode:

.+@.+[.][-a-z0-9]{2,}

aber nur für die interne Darstellung.

[Redeemer]

Zitat:

Zitat von Der schöne Günther (Beitrag 1525678)

Ich habe keine vorgefertigte Funktion aus der Delphi-RTL, also strenggenommen keine Antwort auf deine Frage, aber will trotzdem mahnend Postel's Law erwähnen.

Zitat:

“be conservative in what you do, be liberal in what you accept from others”

„sei streng bei dem, was du tust, und offen bei dem, was du von anderen akzeptierst“

– RFC 761

Wie oft haben mir schon irgendwelche Oberflächen meine vollkommen gültige Email-Adresse um die Ohren gehauen, sie sei nicht gültig

Wir haben letzten Dienstag versucht, unsere Firewall-Appliance von Sophos zu aktualisieren. Dazu ist eine E-Mail-Adresse für die US-Exportkontrolle nötig. Unsere Domain enthält Ziffern. Laut Sophos können Domains jedoch keine Ziffern enthalten. Somit können wir unsere Firewall leider nicht aktualisieren.
Meine private Domain jn-games.de wurde aber schon etliche Male wegen des Bindestrichs abgelehnt, weshalb ich eine Ersatzdomain ohne Bindestrich habe.