How to fix error 287 when trying to resolve name in outlook using vba

Question

How to fix error 287 when trying to resolve name in outlook using vba

Anonymous

Olaf Helper 46,546 Reputation points

2023-10-18T11:24:41.2866667+00:00

Please post the complete error message and some relevant piece of code.

Anonymous

Function GetOutlook_Name(Alias As String)
    
    Dim olApp As Object 'Outlook.Application
    Dim olNameSpace As Object 'Outlook.Namespace
    Dim olRecipient As Object 'Outlook.Recipient
    Dim oEU As Object 'Outlook.ExchangeUser
    
    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")
    If olApp Is Nothing Then
        Set olApp = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0
    
    Set olNameSpace = olApp.GetNamespace("MAPI")
    
            Set olRecipient = olNameSpace.CreateRecipient(Alias)
            olRecipient.Resolve
            If olRecipient.Resolved Then
                If olRecipient.AddressEntry.AddressEntryUserType = 0 Then 'olExchangeUserAddressEntry
                    Set oEU = olRecipient.AddressEntry.GetExchangeUser
                    If Not (oEU Is Nothing) Then
                        With oEU
                            GetOutlook_Name = .Name
                        End With
                    End If
                End If
            End If
      End Function

Anonymous

2023-10-18T12:03:18.6+00:00

Get this error on line olRecipient.Resolve
Faery Fu-MSFT 19,686 Reputation points

2023-10-19T02:48:47.06+00:00

Hi @Forrester, Andy ,

It seems that you are encountering issue about development, please kindly understand that the Outlook tag here we mainly focus on general issues about Outlook desktop client and know little about development. To better help solve your issue, I added the “Office-development “tag in your post.

Thanks for your understanding and hope your issue can be resolved.

1 answer

Your answer

Olaf Helper 46,546 Reputation points

2023-10-18T11:24:41.2866667+00:00

Please post the complete error message and some relevant piece of code.
Anonymous

2023-10-18T12:01:18.08+00:00

Function GetOutlook_Name(Alias As String) Dim olApp As Object 'Outlook.Application Dim olNameSpace As Object 'Outlook.Namespace Dim olRecipient As Object 'Outlook.Recipient Dim oEU As Object 'Outlook.ExchangeUser On Error Resume Next Set olApp = GetObject(, "Outlook.Application") If olApp Is Nothing Then Set olApp = CreateObject("Outlook.Application") End If On Error GoTo 0 Set olNameSpace = olApp.GetNamespace("MAPI") Set olRecipient = olNameSpace.CreateRecipient(Alias) olRecipient.Resolve If olRecipient.Resolved Then If olRecipient.AddressEntry.AddressEntryUserType = 0 Then 'olExchangeUserAddressEntry Set oEU = olRecipient.AddressEntry.GetExchangeUser If Not (oEU Is Nothing) Then With oEU GetOutlook_Name = .Name End With End If End If End If End Function
Anonymous

2023-10-18T12:03:18.6+00:00

Get this error on line olRecipient.Resolve
Faery Fu-MSFT 19,686 Reputation points

2023-10-19T02:48:47.06+00:00

Hi @Forrester, Andy ,

It seems that you are encountering issue about development, please kindly understand that the Outlook tag here we mainly focus on general issues about Outlook desktop client and know little about development. To better help solve your issue, I added the “Office-development “tag in your post.

Thanks for your understanding and hope your issue can be resolved.

Answer 1

Anonymous

See above for answer

Share via

How to fix error 287 when trying to resolve name in outlook using vba

1 answer

Your answer