Hallo zusammen,

ich habe einen coolen Code in mein E-Mailfeld geschrieben, den vielleicht auch noch andere gebrauchen können:

'E-Mail' := replacex('E-Mail', text("mailto:"), text(""));
'E-Mail' := trim('E-Mail');
let myTemp := 'E-Mail';
if not 'Internet-Adresse' then
if not (last(split(myTemp, "@")) like "web.de" or last(split(myTemp, "@")) like "gmx.de" or last(split(myTemp, "@")) like "t-online.de" or last(split(myTemp, "@")) like "gmail.com" or last(split(myTemp, "@")) like "onlinehome.de") then
'Internet-Adresse' := last(split(myTemp, "@"))
end
end

Ihr braucht also zwei Felder: 'E-Mail' und 'Internet-Adresse'

Der Code macht korrigiert dann die E-Mailadresse die ihr aus der Zwischenablage reinkopiert ("mailto:" wird herausgelöscht) und schreibt die Domain aus der E-Mailadresse in das Feld 'Internet-Adresse'.

Dabei habe ich ein paar der gängisten Freeware-E-Mailanbieter ausgeschlossen.

Der Code der die bekannten E-Mailanbieter ausschließt hätte ich gerne mit einem "Blacklist-String" und sowas wie "if not contains('Blacklist') realisiert, aber das hab ich nicht hinbekommen, vielleicht kann das ja noch ein Fuchs verbessern.

:-)

Viel Spaß damit

Benjamin