如何提取当前邮件中所有联系人到新邮件中（vba）

2574476074

老师您好。
代码如下，红色的地方还请老师指点补充，谢谢了
希望是：提取当前邮件中所有联系人（包括发件人和抄送的人）到新邮件中CC，但如果原邮件里有联系人是以@hotmail.com为后缀的，则排除掉

Sub RemoveAttachmentBeforeForwarding()

Dim myinspector As Outlook.Inspector

Dim myItem As Outlook.MailItem

Set myinspector = Application.ActiveInspector

Set myItem = myinspector.CurrentItem.Forward

myItem.BodyFormat = olFormatHTML

myItem.Display

myItem.Recipients.Add "abc@qq.com"

myItem.CC =

End Sub

2574476074

有没有懂得老师可以帮我？谢谢