tjekke om der er @

"at være false"

Hvorfor ikke bruge et bedre tjek. Denne funktione returnere true/false for om det er en gyldig email:

function checkEmail(fEmail)
dim fMailRx
    Set fMailRx = New RegExp
    fMailRx.Global = True
    fMailRx.IgnoreCase = True
    fMailRx.Pattern = "^\w[\w\.\-\+]*@\w([\w\-]*\.)+\w{2}\w*$"
    checkEmail = fMailRx.test(fEmail&"")
    Set fMailRx = nothing
end function

Jeg ville nu hellere, hvis jeg kunne få det andet til at fungere. :)
Her i indlærings-fasen, bliver jeg nødt til at have det i små bidder, og den der fatter jeg sgutte meget af.. :)
Men tak..! Jeg kigger lige på det

Der er RegExp, og du skal skam ikke være ked af at du ikke forstår det. Det er der ikke ret mange der gør :o)

Men RegExp er et af det mest kraftfulde værktøjer der findes, og det er implementeret i rigtig mange forskellige sprog. Det har endag sin helt egen kategori her på E.

Men hvis vi går tilbage til din kode, hvorfor har du så både F_email og email?? Skulle det ikke være sådan:

email = "enMail@add.dk"
IF len(email) > 6 And instr(email,"@") then
  'Email OK
else
  'Email forkert
end if

Det var bare en dum fejl

Havde glemt "F_" i (instr(F_email,"@"))

Men fennec - smid lige et svar. Den function er gemt til senere brug

Tak for uddybningen... Og jo, det var jo lige derfor ;)

Og husk at din funktion IKKE tager højde for minmail@, @minmail.dk, æøå@mail.dk, mail@mail samt mange andre udgaver, som alle vil få en TRUE med din funktion.

.o) <-- One Eyed Jack