Boa tarde!!

Eu não entendi, você precisa saber se os email's que estão em uma coluna de uma guia, e validar ?

Public Function ValidEmail(pAddress As String) As Boolean
     '--------Feito por: royUK --------
    Dim oRegEx As Object
    Set oRegEx = CreateObject("VBScript.RegExp")
    With oRegEx
        .Pattern = "^[w-.]{1,}@([da-zA-Z-]{1,}.){1,}[da-zA-Z-]{2,3}$"
        ValidEmail = .Test(pAddress)
    End With
    Set oRegEx = Nothing
End Function
Sub Test()
    If ValidEmail("me@excel-it.com") Then
        MsgBox "OK"
    Else: MsgBox "Verifique esse endereço de email"
    End If
End Sub

Att

Boa-noite Alexandre

Não era bem isso que eu queria, essa checagem é feita via Web.

Segue anexo um exemplo.

Ex...: é como se fosse enviar um email via Outlook, se o email existir, supostamente a mensagem sera entregue caso não esteja com a caixa de entrada cheia !
se o email não existir por causa do nome antes do "@" estiver errado, ou depois do "@" estiver errado ou o provedor não existir mais, caso do " cidadeinternet.com.br", ele me retorne na columa "B" ou qualquer outra coluna "Inválido".

Att,

Francisco

Bom dia!!

Eu creio ter entendido, seria como enviar um email pelo seu portal de email (outlook), o código validaria e verificaria endereços existentes.

Eu creio não poder te ajudar exatamente como você precisa, pois não tenho nada em mente.

Apenas, validar.

Sub AleVBA_105280()
Dim strPattern As String: strPattern = "^[w-.]{1,}@([da-zA-Z-]{1,}.){1,}[da-zA-Z-]{2,3}$"
Dim regEx As New RegExp
Dim strInput As String
Dim r As Integer
'Considerando o cabeçalho, inicia o loop linha 2
    For r = 2 To Selection.Rows.Count 'Selecione as linhas com dados + 1 linha vazia
        If strPattern <> "" Then
            strInput = Cells(r, 1).Value
            With regEx
                .Global = True
                .MultiLine = True
                .IgnoreCase = False
                .Pattern = strPattern
            End With
            
            If regEx.Test(strInput) Then
                Cells(r, 2).Value = "Endereço de Email válido"
            Else
                Cells(r, 2).Value = "Inválido"
            End If
        End If
    Next r
End Sub

Att

Boa-tarde Alexandrevba
Acha que existiria uma forma de executar essa validação tipo: "via ping" !?

Att,

Francisco

Boa tarde!!

Veja se ajuda:
https://www.profissionaisti.com.br/2014 ... -do-excel/
https://www.webdigi.co.uk/blog/2009/how ... -an-email/

Att