VBA - 将 Exchange Online 电子邮件地址转换为 SMTP 地址

Question

我从用户那里获得了交换在线地址，但我想转换或以某种方式获取他们的 SMTP 地址。

我不确定如何从 Email1Address 获取 SMTP 地址。

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

Answer 1

我将这个用于电子邮件对象，看看你是否可以实现它：

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