電子メールを特定のアカウントに転送するVBAコードがあります。これは、転送される電子メールに転送者の電子メールアドレスがあることを除いて機能します。Outlook自動転送は、転送者ではなく元の送信者に返信を設定します
メールを転送した後に元の送信者のメールアドレスをreplytoとして保持するにはどうすればよいですか？
Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim autoFwd As Outlook.MailItem
Set autoFwd = Item.Forward
autoFwd.Recipients.Add "[email protected]"
autoFwd.Send
Set autoFwd = Nothing
End Sub
私がこれまで見てきたすべてがOutlookが あなたは、ヘッダーが電子メールに含まれて変更できませんという結論をサポートしています。
申し訳ありません。それがオプションの場合は、電子メールプロバイダでフォワードを管理することをお勧めします。
ですので、方法はありませんか？本当に？ - 彼はOutlookを使用すると、ヘッダーが電子メールに含まれて変更できないことに言及したとき、マイク7時間前
Rikingは正しいです。私は彼が.SenderEmailAddressプロパティを参照していると推測しています。このプロパティは読み取り専用であるため、.SenderEmailAddressは変更できません。
あなたが使用したいかもしれないもう一つの特性があると言われています。 SentOnBehalfOfNameプロパティ
リンク：http://msdn.microsoft.com/en-us/library/aa171998%28v=office.11%29.aspx
上記のリンクからの引用
がの表示名を表す文字列を返します。ここで
トピック
.SentOnBehalfOfName詳細意図した送信者メールメッセージのこのプロパティは、MAPIプロパティPR_SENT_REPRESENTING_NAMEに対応します。読み書き。expression.SentOnBehalfOfName
式が必要です。 MailItemオブジェクトを返す式。
また、このリンクに
トピックを参照してください：上記のリンクからhttp://benchristian.wordpress.com/2005/12/18/automatically-setting-the-from-address-of-a-new-outlook-message/
引用：自動的に新しいOutlookメッセージの 'From' アドレス
リンクを設定
代替の返信アドレスを設定すると、ユーザーのグループに対してメールが有効なパブリックフォルダまたは配布リストを使用していて、送信したメッセージへの返信をグループのSMTPアドレスではなくグループsmtpアドレスにする場合に特に便利です。送信者のメールボックス。
HTH
ので、方法はありませんか？本当に？ – Mike
+1あなたは '.SenderEmailAddressプロパティ 'を読み取り専用に変更することはできません。 –