HEj!

Kolla en mailadress med regular expressions..

Det kan ju ni..

Men har ni nån bra kod till mig?! ;)

Bra och bra... följande använder jag och den fungerar för vanliga mailadresser, men tycker inte om man skriver in sitt ip-nummer istället för domain osv osv..

<code>
Friend Function checkMailAddress(vEmailAddress As Variant) As Boolean
On Error GoTo err_handler
'-- init -----------------------------------------------------------------
Dim oReg As RegExp
Set oReg = New RegExp
'-- END: -----------------------------------------------------------------

'-- check mailadress -----------------------------------------------------
If IsNull(vEmailAddress) Then
checkMailAddress = False
Else
oReg.Pattern = "^[\w\.-]+@[\w\.-]+\.[a-zA-Z]+$"
checkMailAddress = oReg.Test(CStr(vEmailAddress))
End If
'-- END: -----------------------------------------------------------------

'-- uninit --------------------------------------------------------------
Set oReg = Nothing
Exit Function
'-- END: -----------------------------------------------------------------

err_handler:
'-- Err_handler --------------------------------------------------------
RaiseEvent Error("CSendMail.checkMailAddress", Err.Number, Err.Description)
checkMailAddress = False
'-- END: -----------------------------------------------------------------
End Function
</code>

- M

Sökte i forum och hittade denna tråd:
[Hj&#228;lp med denna e-postvalideringsfunktionen]
Den har en del tips