Get User Exchange phone extension

[Binocular222]

The below code display info on selected contact (contact is store in Exchange server and GAL). However, I cannot figure out how to get phone extension, please anyone could help?

Public Sub testing()
On Error Resume Next
Set DummyEmail = CreateObject("Outlook.Application").CreateItem(olMailItem)            'Create a dummy e-mail to add aliases to
Set Selection = Application.ActiveExplorer.Selection

For Each ContactItem In Selection
    With ContactItem
       If .Email1AddressType = "EX" Then
          Set ActivePersonRecipient = DummyEmail.Recipients.Add(.Account & "@kpmg.com.vn")      'Use the .Account alias to create a recipient object and add it to the dummy e-mail
          If ActivePersonRecipient.Resolve Then                                      'If valid, use the  AddressEntry property of the recipient to return an AddressEntry object
             Set oExUser = ActivePersonRecipient.AddressEntry.GetExchangeUser                   'Use the GetExchangeUser method of the AddressEntry object to retrieve the ExchangeUser object for the recipient.
             If Trim(oExUser.Address) <> "" Then                                             'To counter weird error when sometime ActivePersonRecipient.Resolve to True even if the Exchange account doesn't exist.
                resultstr = oExUser.FirstName
                MsgBox (resultstr)
             End If
          End If
        End If
    End With
Err.Clear
Next

Set AllContactItems = Nothing
End Sub

 

[Forum Admin]

You'd use .GetExchangeUser.BusinessTelephoneNumber

 

[Binocular222]

Yes, I tried that, but only result in office phone number without extension.

 

[Diane Poremsky]

How are the numbers formatted? Is it in a separate field? (My GAL doesn't show a separate field for extension)

 

[Binocular222]

The above code only shows 439461600
I need the 6167 part
http://www.mediafire.com/view/ekoxb4st94mwbq7/Untitled20140725152628.png

 

[Diane Poremsky]

oh, the old GAL dialog.

I found this and the extension is not on it - http://msdn.microsoft.com/en-us/vstudio/bb176658

I found other references that it merges with the phone # - we should be able to get it using the propertyaccessor - i'll have to see if i can find it.

 

[Alexander Kuzin]

Hello! Did you find out how to retrieve extension number? I need it too.
Thanks.