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 =…(read more)
