web-dev-qa-db-ja.com

Outlookのクライアントから外部の電子メールに電子メールを自動転送する

こんにちは、みんな、

交換レベルでの自動転送はサーバー管理者によって無効にされているため、電子メールを外部電子メール（私のブラックベリー電子メール）に転送するVBAコードがあります。私はそれをうまく機能させていますが、他のアカウントで電子メールを受信するときに、私からのすべての電子メールを見る代わりに、元の送信者をfrom部分で見ることができる方法はありますか？

これが私のコードです

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

Set myFwd = Item.Forward

myFwd.Recipients.Add "[email protected]"
myFwd.Subject = Mid(myFwd.Subject, 4)
myFwd.Save


myFwd.Send
Set myFwd = Nothing
End Sub
microsoft-outlookvba
3
KP65

私はOutlookのユーザーではありませんが、この古い記事は次の方法を提案しています。
OL2000：フォームのFromフィールドをプログラムで設定する方法 。

おそらくこれはうまくいくかもしれません：

myFwd.SentOnBehalfOfName = Item.SentOnBehalfOfName

また、記事 MailItem ObjectSenderNameのプロパティにも気づきました。これも役立つ場合があります。

1
harrymc