Get email recipient

[carmenv323]

I have the following code in my form which I want to work with partial name to look in Outlook and resolve the name.

It current runs through the code but stops before it resolves itself, this happens even if I enter the name as it's found in Outlook:

Private Sub RequestByPerson_LostFocus()
    If IsNull(Me.RequestByPerson) Or Me.RequestByPerson = vbNullString Then
        MsgBox "The Request by Person cannot be blank.", vbOKOnly, "Requestor Required"
    Me.RequestByPerson.SetFocus
        Exit Sub
    End If
 
    If Not IsNull(Me.RequestByPerson) Or Me.RequestByPerson <> vbNullString Then
       Dim sName As String
       
        sName = ResolveDisplayName(Me.RequestByPerson)   'this calls the function below to Resolve the name entered
        If sName <> "" And sName <> Me.RequestByPerson Then
            Me.RequestByPerson = sName
        ElseIf sName = "" Then
            Exit Sub
        End If
  End Sub

Public Function ResolveDisplayName(sFromName) As String
    On Error GoTo ErrorHandler
  
    Dim OLApp As Object 'Outlook.Application
    Dim oRecip As Object 'Outlook.Recipient
    Dim oEU As Object 'Outlook.ExchangeUser
    Dim oEDL As Object 'Outlook.ExchangeDistributionList
 
    Set OLApp = CreateObject("Outlook.Application")
 
    Set oRecip = OLApp.Session.CreateRecipient(sFromName)  'it goes as far as here and exits - I can't seem to find a way to capture the error properly, even though there really shouldn't be an error

    oRecip.Resolve
    If oRecip.Resolved Then
        ResolveDisplayName = oRecip.Name
    End If
Exit Function
 
ErrorHandler:
    Exit Function
End Function

[Balge54]

I tried your function using 'sFromName = "John.Smith@gmail.com"' and it worked; but did not work using '"sFromName = "John Smith"' nor with "Smith John".
To my knowledge, this sounds logical as the "resolve" instruction looks for an eMail address.

[pbaldy]

FYI I deleted your other thread and moved this one to the forum you wanted it in. In the future, you can just report your own post and ask for it to be moved rather than duplicating it.

[carmenv323]

Thank you, I wasn't sure how to do that and I didn't want "double-post"

FYI I deleted your other thread and moved this one to the forum you wanted it in. In the future, you can just report your own post and ask for it to be moved rather than duplicating it.

[Welshgasman]

I used the code below in my email, though by that time I had a new emal open?

               Set objOutlookRecip = .Recipients.Add("Jim Needs - Personal")

[Balge54]

@Welshgasman: I didn't get your point but as far the code you wrote is concerned, I would rather change to something like this:

Set objOutlookRecip = .Recipients.Add("Jim.Needs@xyz.com")

[Welshgasman]

@Welshgasman: I didn't get your point but as far the code you wrote is concerned, I would rather change to something like this:

Set objOutlookRecip = .Recipients.Add("Jim.Needs@xyz.com")

The reason I did it that way, is if the email address changed in outlook, it would still be able to send the email.
Your way, you would need to amend code in access, or data in a table (better), but still have to remember to do so.

[Balge54]

Right; I'm doing so every year updating my table, but i's merely for 1 or 2 guys max. The alert comes often either from the customer or by return undelivered.