Vba Outlook原始发件人抄送电子邮件_Vba_Outlook

Vba Outlook原始发件人抄送电子邮件

vba outlook

Vba Outlook原始发件人抄送电子邮件,vba,outlook,Vba,Outlook,我有Outlook VBA代码，可以将原始电子邮件转发给预定的人，附加电子邮件主题，并向电子邮件正文添加一些文本我需要提取电子邮件的原始发件人（使用senderEMailAddress MailItem，我确信），并将该电子邮件地址放置在转发电子邮件的抄送中 Sub CADREemailFWD() Set objOL = CreateObject("Outlook.Application") Set objMsg = objOL.ActiveInspector.CurrentItem Se

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

我需要提取电子邮件的原始发件人（使用senderEMailAddress MailItem，我确信），并将该电子邮件地址放置在转发电子邮件的抄送中

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

试试这个

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

或

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