Автоматическая пересылка электронных писем от клиента в Outlook на внешнюю почту

Question

Всем привет,

авто-переадресация на уровне обмена отключена администратором сервера, поэтому у меня есть некоторый код VBA, который перенаправляет электронные письма на внешний адрес электронной почты (мой адрес электронной почты Blackberry). У меня все работает нормально, но мне было интересно, есть ли способ, когда я получаю электронное письмо от моего другого аккаунта, что вместо того, чтобы видеть все письма от меня, вы можете увидеть оригинального отправителя в части from?

вот мой код

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add "asb@x.net"
myFwd.Subject = Mid(myFwd.Subject, 4)
myFwd.Save


myFwd.Send
Set myFwd = Nothing
End Sub

Answer 1

Хотя я не являюсь пользователем Outlook, эта старая статья предлагает способ:
OL2000: Как программно установить форму поля «От».

Возможно, это может сработать:

myFwd.SentOnBehalfOfName = Item.SentOnBehalfOfName 

Я также заметил в статье MailItem Object свойство SenderName , которое также может быть полезным.