检测来自 Outlook 收件人的无效公司电子邮件地址

Question

我无法使用以下代码检测 Outlook 收件人的内部（EX 类型）无效电子邮件地址：

无效的电子邮件地址有一个印刷错误，例如 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 CODE to Verify Email Address Found in Outlook Global Address List