Verificando a existência de um domínio de email

Fala, galera!!

O código que irei postar agora é muito interessante para aplicações de envio de newsletters.
É normal em um ambiente com milhares ou milhões de emails que muitos desses emails sejam inválidos.

Validar o formato do email apenas não garante que um email realmente existe.
Existe uma outra validação que podemos aplicar que aumenta as chances de garantirmos que o email existe: A validação do domínio do email.

Esta validação não garante 100% que a existência da conta do usuário, mas garante pelo menos que o domínio do email é um domínio válido.

Segue o código:


        Dim dominio As String
        Dim ObjHost As System.Net.IPHostEntry
        Try
            dominio = Email.Substring("email".IndexOf("@") + 1)
            ObjHost = System.Net.Dns.GetHostEntry(dominio)
            ObjHost = Nothing
            Response.Write("Domínio válido")
        Catch ex As Exception
            Response.Write("Domínio inválido")
        End Try

É isso ae.

Um abraço e até a próxima!!