0
У меня есть код 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 "[email protected]"
objForward.Recipients.Add "[email protected]"
objOrignialBody = objForward.Body
objOriginalSubject = objForward.Subject
objForward.Subject = "[CADRE REQUEST # ] " & objOriginalSubject
objForward.Display
objForward.Body = "[CADRE REQUEST # ]" & BodyofEmail & objOrignialBody
End Sub