VB6 Controllo E-mail

[binbum]

Salve a tutti!
Ho un problemino...devo fare un controllo in un campo testo sull'inserimento di un corretto indirizzo di posta elettronica,esiste uno script adatto?
Grazie 1000

[raffaeu]

beh un loop

devi controllare che

A - ci sia l' @
B - ci sia il punto prima della fine
C - dopo il punto ci siano almento 2 caratteri

For x = 0 to Len(email)

Next

funzioni: InStr, Mid, Right e Left.

[binbum]

Ho messo questo script:

Dim Email As String
Dim Filtro As String
Email = TxtEmail.Text
Filtro = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
If Email <> Filtro Then
MsgBox "Inserire un corretto indirizzo E-mail", vbInformation
TxtEmail.SetFocus
Exit Sub
End If

Cosa devo modificare?
Grazie 1000

[Last_Winter]

Public Function ControlloMail(strMail)

Dim pos as byte
Dim dotpos as byte

If Len(strMail) > 6 Then
pos = InStr(1, strMail, "@")
If pos >= Len(strMail) - 3 Then
Exit Function
End If
If pos < 2 Then
Exit Function
End If
dotpos = InStr(pos + 1, strMail, ".")
If dotpos > Len(strMail) - 2 Then
Exit Function
End If
If Len(Mid(strMail, pos + 1)) < 5 Or dotpos = 0 Then
Exit Function
End If
ControlloMail = True
Else
ControlloMail = False
End If
End Function

[binbum]

Grazie 1000
Mi sono permesso di cambiare un po il tuo script:

Email = TxtEmail
chioc = "@"
punto = "."
a = InStr(1, Email, chioc)
b = InStr(a + 1, Email, punto)
C = Len(Mid(Email, a + 1))
If a >= Len(Email) - 3 Or a < 2 Or b > Len(Email) - 2 Or b = 0 Or C < 5 Then
MsgBox "Inserire un corretto indirizzo E-mail", vbInformation
TxtEmail.SetFocus
Exit Sub
End If

Ciao

[cidific]

L'esempio apportato da Last_Winter è buono, ma visto che hai trovato l'espressione regolare per il controllo della mail ti consiglio di vedere, in termini di prestazioni e' molto + veloce, di usarlo.

Cidific