Hallo zusammen,
ich bin gerade dabei aus einer Datei Kundendaten in eine Notes DB zu importieren. Dabei ist mir aufgefallen, dass die Qualität der Mailadressen sehr schlecht ist. Ich würde also gerne zumindest die Syntax beim Import prüfen.
Bietet LS oder @Formel da etwas fertiges? Oder hat jemand vielleicht eine entspreche Funktion parat? Ich möchte mir nur ungern daran die Finger brechen... bin halt nicht so der Programmieren 
Danke schon mal vorab.
fertiges habe ich nicht. Wie tief willst Du denn prüfen? Reicht es auf ein @ oder auf einen Punkt zu prüfen?
Gruß
Dirk
Hi,
100 % ein Punkt oder ein @ reichen nicht. Du kannst dir nicht vorstellen was ich alles gefunden habe. hier mal einige beispiele aus der liste(jede zeile=Mailadresse):
2
reiner
(name) @ .gmx.de
+-@+-onlined.de
http://www.adresse.de , name@adresse.de
und das sind nur einige davon
also nur mal ein Ansatz.
- Aufteilen in 2 Teilstrings (rechts und links vom @, siehe Split in der Designer-Hilfe)
- den rechten String auf einen Punkt prüfen (siehe instr in der Designer-Hilfe)
- beide Strings auf gültige Zeichen prüfen
Ich kann allerdings nicht 100%-ig sagen welche Sonderzeichen zu den gültigen Zeichen zählen.
Gruß
Dirk
Danke, danke,
die Logik ist mir schon bekant Ich bin halt nicht der große Programmierer und wenn ich das jetzt umsetze entstehen bestimmt 1000 Zeilen Code, weil ich Befehle usw. nicht kenne....
Daher die Frage ob jemand eine Rutine in der Tasche hat oder Notes dies von Haus aus prüfen kann.
adrfehler = false
adresse = trim(adresse)
if adresse <> "" Then
if instr(adresse, "@") > 0 then
array_adr = Split(adresse, "@")
if instr(array_adr(Ubound(array_adr)), ".") > 0 Then
for i_array = 0 to Ubound(array_adr)
for i_string = 0 to len(array_adr(i_array)) - 1
'in der nächsten Zeile fehlt noch die Prüfung, ob es ein gültiges Zeichen ist'
if Mid$(array_adr(i_array), i_string, 1) ... Then
else
adrfehler = True
' Fehler falsches Zeichen'
end if
Next
Next
else
adrfehler = True
' Fehler: kein Punkt zwischen Domäne und Landeskennung'
end if
else
adrfehler = True
' Fehler in Mail-Adresse @ fehlt'
end if
else
adrfehler = True
' Fehler Adresse leer'
end ifGruß
Dirk
Schau dir mal die Formel @ValidateInternetAddress an.
ups wieder was gelernt, die Funktion ist irgendwie an mir vorbeigegangen.
Gruß
Dirk
Gibt es seit Version 5
Danke Euch beiden. Damit sollte es selbst mir möglich sein
Version 5 haben wir übersprungen, in Version 6 habe ich es noch nicht benötigt bzw bin noch nicht per Zufall darauf gestoßen.
Gruß
Dirk