Outlook原始发件人到CC电子邮件

Question

我有Outlook VBA代码，可以将原始电子邮件转发给预定的人员，附加电子邮件主题并向电子邮件正文添加一些文本。

我需要提取电子邮件的原始发件人（我确定使用senderEMailAddress MailItem）并将该电子邮件地址放在要转发的电子邮件的cc中。

Sub CADREemailFWD()

Set objOL = CreateObject("Outlook.Application")
Set objMsg = objOL.ActiveInspector.CurrentItem

Set objForward = objMsg.Forward

Set myitem = Application.ActiveInspector.CurrentItem

objForward.Recipients.Add "dlud@blahblah.com"
objForward.Recipients.Add "mcha@blahblah.com"
objOrignialBody = objForward.Body
objOriginalSubject = objForward.Subject

objForward.Subject = "[CADRE REQUEST #  ] " & objOriginalSubject
objForward.Display
objForward.Body = "[CADRE REQUEST #   ]" & BodyofEmail & objOrignialBody

End Sub

Answer 1

试试这个

objForward.Recipients.Add(myItem.SenderEmailAddress).Type = olCC

或

objForward.Recipients.Add(myItem.Sender).Type = olCC