VBA - Convert Exchange Online Email Address as SMTP Address

Question

I get the exchange online addresses from users, but I want to convert or somehow get the SMTP Address of them.

I am not sure how to get the SMTP Address from Email1Address.

Set objOL = CreateObject("Outlook.Application")
Set objNS = objOL.GetNamespace("MAPI")
Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts)
Set objItems = objContactsFolder.Items

For Each obj In objItems
    'Test for contact and not distribution list
    If obj.Class = olContact Then
        Set objContact = obj

      With objContact

      If .Email1Address <>"" Then
         'I want to add the SMTP-Address after the .LastNameAndFirstName of a User
          strFileAs = .LastNameAndFirstName

         .Email1DisplayName= strFileAs

         .Save
       End If
      End With
    End If

    Err.Clear
Next

Search for `ResolveDisplayNameToSMTP` - code you're looking for is by Sue Mosher. — Darren Bartrup-Cook, Oct 10 '17 at 13:01
See [HowTo: Convert Exchange-based email address into SMTP email address](https://www.add-in-express.com/creating-addins-blog/2009/05/08/outlook-exchange-email-address-smtp/). — Eugene Astafiev, Oct 10 '17 at 13:33
Possible dupe of https://stackoverflow.com/questions/31161726/creating-a-check-names-button-in-excel. — niton, Oct 13 '17 at 20:46

score 1 · Answer 1 · answered Oct 12 '17 at 07:42

1

I used this for the email object, see if you can implement it:

dim email as string
If myItem.SenderEmailType = "EX" Then
email = myItem.Sender.GetExchangeUser.PrimarySmtpAddress
Else
email = myItem.SenderEmailAdress
End If

answered Oct 12 '17 at 07:42

donCalculator

318
1
11

VBA - Convert Exchange Online Email Address as SMTP Address

1 Answers1