Verifica a sintaxe de enderços de email contra erros de digitação.

'============================================== ' Verifica se a sintaxe do e-mail está errada ' Tim Lasek ( tlasek@gisco.net )  ' Function IsValidEmail(Email) ' Usage:   IsValidEmail("somedude@provider.net") ' Result:  True '============================================== Function IsValidEmail(Email) ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then  atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function

Quebra-Linha

Colaborador..: Marcelo Giovanni
Categoria(s).: ASP;
Versão.......: 1.0
Data.........: 11/04/2002 15:45:46
Visualizado..: 3773 vezes
Fonte........: http://www.powerasp.com/content/code-snippets/functions/IsValidEmail.asp