请问如何获得所选邮件的抄送地址

Adams780719

各位老师，我有以下这段代码，想获得所选中邮件的抄送地址，而以下这段代码只能获得邮件的抄送人名称。请问该如何更改一下？谢谢。

Sub a2()
Dim myolapp As Outlook.Application
Set myolapp = Outlook.Application
Dim mynamespace As Outlook.NameSpace
Set mynamespace = myolapp.GetNamespace("MAPI")
Dim myolexp As Outlook.Explorer
Set myolexp = myolapp.Explorers.Item(1)
Dim myolsel As Outlook.Selection
Set myolsel = myolexp.Selection
Dim x As Integer
Dim y As String
For x = 1 To myolsel.Count
y = myolsel.Item(x).CC
'MsgBox y
Dim mydataobj As New DataObject
mydataobj.SetText y
mydataobj.PutInClipboard
Next x
End Sub

Adams780719

请问那位老师能帮忙看一下这个问题？谢谢了！

dsd999

Function R_GetSenderAddress(objMsg)
  Dim strType
  Dim objSenderAE ' Redemption.AddressEntry
  Dim objSMail    ' Redemption.SafeMailItem
  Dim rrecip As Redemption.SafeRecipient

  Const PR_SENDER_ADDRTYPE = &HC1E001E
  Const PR_EMAIL = &H39FE001E
  Const PR_SENT_REPRESENTING_EMAIL_ADDRESS = &H65001E
  Const PR_SENDER_EMAIL_ADDRESS = &HC1E001E
  Const PR_SENT_REPRESENTING_NAME = &H42001E
   Const PR_ACCOUNT = &H3A00001E       ' alias
    Const PR_GIVEN_NAME = &H3A06001E    ' given name
    Const PR_SURNAME = &H3A11001E       ' surname
    Const PR_TITLE = &H3A17001E         ' title
    Const PR_DISPLAY_NAME = &H3001001E  ' display name
    Const PR_EMAIL_ADDRESS = &H3003001E

  Set objSMail = CreateObject("Redemption.SafeMailItem")
  objSMail.Item = objMsg

  strType = objSMail.Fields(PR_SENDER_ADDRTYPE)
  Set objSenderAE = objSMail.Sender
  If Not objSenderAE Is Nothing Then
    If strType = "SMTP" Then
      R_GetSenderAddress = objSenderAE.Address
    ElseIf strType = "EX" Then
      R_GetSenderAddress = objSenderAE.Fields(PR_EMAIL)
    End If
   End If

Set rrecip = objSMail.Recipients(2)
Dim rae As Redemption.AddressEntry
    Dim count As Integer
    Dim first As String
    Dim last As String
    Dim alias As String
    Dim title As String
    Dim display As String
    Dim emailadd As String

If rrecip.DisplayType = olUser Then
            ' is it an Exchange user?
            Set rae = rrecip.AddressEntry
            If rae.Type = "EX" Then
                alias = rae.Fields(PR_ACCOUNT)
                display = rae.Fields(PR_DISPLAY_NAME)
                first = rae.Fields(PR_GIVEN_NAME)
                last = rae.Fields(PR_SURNAME)
                title = rae.Fields(PR_TITLE)
                emailadd = rae.Fields(PR_EMAIL)
                'Debug.Print alias, display, first, last, title
                Debug.Print emailadd
            End If
        End If


   Set objSenderAE = Nothing
   Set objSMail = Nothing
End Function

dsd999

参考:http://www.haogongju.net/art/924387
有什么问题再来问。

Adams780719

没太看明白，这个链接里说的好像是关于sender信息的。但抄送人的邮件地址（CC的地址）好像没怎么说到。还请老师帮忙提示一下。谢谢。