Как получить репрезентативный адрес электронной почты в списке рассылки (НЕ адреса электронной почты каждого участника в списке)?Пожалуйста, обратитесь к следующему псевдокоду.
Ваша помощь будет принята.
Dim Recip As Outlook.Recipient
Dim Recip_email As String
If Recip.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
Recip_email = Recip.AddressEntry.GetExchangeUser.PrimarySmtpAddress
ElseIf Recip.AddressEntry.AddressEntryUserType = olSmtpAddressEntry Then
Recip_email = Recip.Address
ElseIf Recip.AddressEntry.AddressEntryUserType = olExchangeDistributionListAddressEntry Then
' Recip that is a distribution list seems to fall in this branch
' How do I get the representative email address of the group?
' Example: if the representing email address is aaa@aaa.com, Recip_email = aaa@aaa.com
Recip_email = ??????????????????????
Else
Recip_email = vbNullString
End If