Обнаружение неверного адреса электронной почты в фирме от получателей Outlook

Question

У меня возникают проблемы с обнаружением недействительного адреса электронной почты (типа EX) получателя Outlook, используя следующий код:

Недопустимый адрес электронной почты содержит типографскую ошибку, скажем, tes@mail.com дляtest@mail.com.

Как обнаружить получателя в фирме, имеющего неверный адрес электронной почты?

Dim Email as Outlook.Mailitem
Dim Recipients As Outlook.Recipients
Set Recipients = Email.Recipients
    Recipients.Resolveall

If Not Recipients.ResolveAll Then
    For i = Recipients.Count To 1 Step -1
        If Not Recipients(i).Resolved Then
            MsgBox Recipients(i).Name
        End If
    Next i
End if

Answer 1

Вы проверили следующий код:

    Public Function ResolveDisplayNameToSMTP(sFromName, OLApp As Object) As String

    Dim oRecip As Object  'Outlook.Recipient

    Set oRecip = OLApp.Session.CreateRecipient(sFromName)
    oRecip.Resolve
    oRecipName = oRecip.Name

    If oRecip.Resolved And InStr(oRecipName, "@") = 0 Then
        ResolveDisplayNameToSMTP = "Valid"
    Else
        ResolveDisplayNameToSMTP = "Not Valid"
    End If

End Function

Подробнее см. Здесь: КОД VBA для проверки адреса электронной почты, найденного в глобальном списке адресов Outlook