Carlos Fernando Paleo da Rocha
SBS MVP in Brazil

Validando o domínio de um e-mail

Este código de VBA serve de complemento ao postado antes, que verifica a sintaxe. Já este valida se o domínio é válido. Preparado para rodar com domínios .br, mas com pequeno ajuste funcionaria com os domínios .com também.

Sub email()
    Dim txtEmail As String
    txtEmail = InputBox("Digite o endereço", "Endereço de e-mail")
   
    Dim ObjXML
    Dim ResultadoConsulta
    Dim Situacao
   
    If IsEmailValid(txtEmail) Then
           
        Dominio = Split(txtEmail, "@")
        If Len(Dominio(1)) < 9 Then
            Situacao = "Error ! The domain must have at least 3 characters"
        ElseIf Len(Dominio(1)) > 32 Then
            Situacao = "Error ! The domain must have at the maximum 26 characters"
        Else
            Set ObjXML = CreateObject("Microsoft.XMLHTTP")
       
            ObjXML.Open "GET", "http://registro.br/cgi-bin/nicbr/whois?qr=" & Dominio(1), False
       
            ObjXML.Send
       
            ResultadoConsulta = ObjXML.ResponseText
       
            If InStr(1, ResultadoConsulta, "Domínio inexistente") Then
                   
                Situacao = "Disponível para registro"
               
            ElseIf InStr(1, ResultadoConsulta, "Consulta inválida") Then
               
                Situacao = "Erro! Sintaxe inválida "
               
            Else
                Situacao = "Domínio de e-mail válido"
            End If
               
        End If
    Else
        Situacao = "Sintaxe de e-mail inválida!"
    End If
    ' Mostra resultado
    MsgBox Situacao
End Sub