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

привет всем,

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

вот мой код

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