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

[Uwe Raabe]

Zitat von TigerLilly:

Ich habe eine recht einfache Frage gestellt.

Genau genommen hast du das gar nicht!

Zitat von 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. :- )

[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.

[Jasocul]

Zitat von shebang:

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:
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.)