Boa tarde!

Veja se esse código te ajuda.

Sub email()
    Dim txtEmail As String
    'Obtém o endereço de e-mail
    txtEmail = InputBox("Digite o endereço", "Endereço de e-mail")
   
    Dim Situacao As String
    'Identifica a situação dele
    If IsEmailValid(txtEmail) Then
        Situacao = "Sintaxe válida de e-mail!"
    Else
        Situacao = "Sintaxe inválida de e-mail!"
    End If
    ' Mostra o resultado
    MsgBox Situacao
End Sub


Function IsEmailValid(strEmail)
    Dim strArray As Variant
    Dim strItem As Variant
    Dim i As Long, c As String, blnIsItValid As Boolean
    blnIsItValid = True
    
    i = Len(strEmail) - Len(Application.Substitute(strEmail, "@", ""))
    If i <> 1 Then IsEmailValid = False: Exit Function
    ReDim strArray(1 To 2)
    strArray(1) = Left(strEmail, InStr(1, strEmail, "@", 1) - 1)
    strArray(2) = Application.Substitute(Right(strEmail, Len(strEmail) - Len(strArray(1))), "@", "")
    For Each strItem In strArray
        If Len(strItem) <= 0 Then
            blnIsItValid = False
            IsEmailValid = blnIsItValid
            Exit Function
        End If
        For i = 1 To Len(strItem)
            c = LCase(Mid(strItem, i, 1))
            If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then
                blnIsItValid = False
                IsEmailValid = blnIsItValid
                Exit Function
            End If
        Next i
        If Left(strItem, 1) = "." Or Right(strItem, 1) = "." Then
            blnIsItValid = False
            IsEmailValid = blnIsItValid
            Exit Function
        End If
    Next strItem
    If InStr(strArray(2), ".") <= 0 Then
        blnIsItValid = False
        IsEmailValid = blnIsItValid
        Exit Function
    End If
    i = Len(strArray(2)) - InStrRev(strArray(2), ".")
    If i <> 2 And i <> 3 Then
        blnIsItValid = False
        IsEmailValid = blnIsItValid
        Exit Function
    End If
    If InStr(strEmail, "..") > 0 Then
        blnIsItValid = False
        IsEmailValid = blnIsItValid
        Exit Function
    End If
    IsEmailValid = blnIsItValid
End Function

Fonte: http://carlosfprocha.com/blogs/paleo/ar ... o-vba.aspx

Caro wagner esse código me já me ajuda bastante, mas vou ter que personalizar pois alguns vendedores cadastram clientes da seguinte forma:

[email protected]

[email protected]

[email protected]

[email protected]

e coisas do tipo. Nesses casos o validador não aponta como erro.

Não dá pra controlar manualmente pois são mais de 1500 vendedores de mais de 4000 cadastros mensais

Mesmo assim obrigado pela ajuda pois já me deu uma luz para iniciar.. Abrç!

xlarruda,

Ok.

Veja esta.

Colega wagner, desculpe a minha ignorância no assunto mas,

essa lista é tipo uma lista de exclusão? em que situações ela retornaria True?

Obs. para todos os e-mails que eu insiro ela só me retorna False.. Obrigado desde já!

Vixe cara!

Nem testei com e-mails válidos! Aliás, esse código não é meu. Peguei na internet. Acho que você precisa dar uma boa estudada nele e, se for o caso, fazer as necessárias adaptações.

Blz wagner, muito obrigado pela atenção! vou continuar tentando entendê-lo por aqui.

Abrç!

Eu postei aqui no forum a uns dois anos atrás função que valida o e-mail: viewtopic.php?f=10&t=17252&hilit=+email
Esta função retorna o endereço do e-mail se for válido, caso contrario retorna vazio.

E tem esta outra função que válida o domino através do programa (for windows) NSLOOKUP na linha de comando: "nslookup -q=mx"
Desta forma o a validação fica quase completa.
Segue em anexo o exemplo com a aplicação das duas funções.

Boa-noite

Segue exemplo...espero que ajude !

Att

Francisco

Se algum dos códigos resolveu seu problema, favor marcar como resolvido.
Caso contrário, diga o que falta.

Amigo Basole, era exatamente isso o que eu procurava. Muito Obrigado!

E obrigado a todos pela contribuição... Abrç!