Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

6 de março de 2012

VBA Tips - Avalia o endereço do email - Validating An Email Address

Termo de Responsabilidade

Que tal validar um endereço de e-mail ou uma lista deles?

A função é esta: AvalMail ("bernardess@gmail.com")

Function AvalMail (ByVal EAddress As String) As Boolean
    ' Variáveis dimensionadas.
    Const AllowChars = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" + "abcdefghijklmnopqrstuvwxyz._-"

    Dim UserName As String
    Dim ServerName As String
    Dim x As Long
    Dim i As Integer
    
    'Validate email address.
    Let x = InStr(1, EAddress, "@")
    
    If x = 0 Then GoTo BadAddress
    If InStr(x + 1, EAddress, "@") > 0 Then GoTo BadAddress
    
    Let UserName = Left$(EAddress, x - 1)
    Let ServerName = Right$(EAddress, Len(EAddress) - x)
    
    If Left$(UserName, 1) = "." Or Right$(UserName, 1) = "." Then GoTo BadAddress
    If Left$(ServerName, 1) = "." Or Right$(ServerName, 1) = "." Or InStr(1, ServerName, ".") = 0 Then GoTo BadAddress
    
    For i = 1 To Len(UserName)
        If InStr(1, AllowChars, Mid$(UserName, i, 1)) = 0 Then GoTo BadAddress
    Next
    
    For i = 1 To Len(ServerName)
        If InStr(1, AllowChars, Mid$(ServerName, i, 1)) = 0 Then GoTo BadAddress
    Next
    
    Let AvalMail = True

    Exit Function

BadAddress:
    Let AvalMail = False
End Function

References:

Tags: VBA, Tips, email, validade, avalia, checa, valida


 

Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine