Outlook .Recipients.ResolveAll ambiguous name resolution failure

Question

When resolve all cannot process (due to multiple users on our system with the same first/last name) the macro fails to run. Is there a way to get outlook to display the names and let me select which john doe I want (if not then maybe just remove the names it can't resolve).

    Sub Reply_All_From_Folder()

    Dim original As MailItem

    Dim reply As MailItem

    Set original = ActiveInspector.CurrentItem.ReplyAll

    Set reply = Application.CreateItem(olMailItem)

    With reply

        .SentOnBehalfOfName = "[email protected]"

        .Subject = original.Subject

        .To = Replace(original.To, "[email protected]", "")

        .CC = original.CC

        .HTMLBody = original.HTMLBody

        .Recipients.ResolveAll

        .Display

    End With

End Sub

Answer 1

You can simulate pressing the Check Names button if ResolveAll is false.

Sub Reply_All_From_Folder_NotResolveAll()

    Dim trueoriginal As mailItem
    Dim original As mailItem
    Dim reply As mailItem

    Set trueoriginal = ActiveInspector.currentItem
    Set original = ActiveInspector.currentItem.ReplyAll
    Set reply = CreateItem(olMailItem)

    With reply

        .subject = original.subject
        .To = original.To & "; notaresolvablename" & "; smith, john"

        If Not .Recipients.ResolveAll Then
            .Display
            ActiveInspector.CommandBars.ExecuteMso ("CheckNames")
        Else
            .Send
        End If

    End With

trueoriginal.Close olDiscard

ExitRoutine:
    Set trueoriginal = Nothing
    Set original = Nothing
    Set reply = Nothing

End Sub