2

特定のアカウントにメールを転送するための VBA コードがあります。転送される電子メールに転送者の電子メールアドレスがあることを除いて、機能します。

メールが転送された後、元の送信者のメール アドレスを返信先として保持するにはどうすればよいですか?

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

    Set autoFwd = Item.Forward

    autoFwd.Recipients.Add "my_email@domain.com"

    autoFwd.Send

    Set autoFwd = Nothing
End Sub
4

2 に答える 2

3

だから方法はありませんか？本当？–マイク7時間前

Outlookでは電子メールに含まれるヘッダーを変更できないと彼が言ったとき、Rikingは正しいです。彼は.SenderEmailAddress財産について言及していると思います。.SenderEmailAddressこのプロパティは読み取り専用であるため、を変更することはできません。

あなたが使いたいと思うかもしれない別のプロパティがあると言った。.SentOnBehalfOfName詳細はこちら

トピック：SentOnBehalfOfNameプロパティ

リンク： http： //msdn.microsoft.com/en-us/library/aa171998%28v=office.11​​%29.aspx

上記のリンクから引用

メールメッセージの目的の送信者の表示名を示す文字列を返します。このプロパティは、MAPIプロパティPR_SENT_REPRESENTING_NAMEに対応します。読み書き。

expression.SentOnBehalfOfName

式が必要です。MailItemオブジェクトを返す式。

このリンクも参照してください

トピック：新しいOutlookメッセージの「差出人」アドレスを自動的に設定する

リンク： http： //benchristian.wordpress.com/2005/12/18/automatically-setting-the-from-address-of-a-new-outlook-message/

上記のリンクから引用

代替返信アドレスの設定は、ユーザーのグループに対してメール対応のパブリックフォルダーまたは配布リストを使用していて、ユーザーが送信するメッセージへの返信を送信者のメールボックスではなくグループのSMTPアドレスに送信する場合に特に便利です。

HTH

于 2012-05-10T14:43:28.630 に答える
2

これまで見てきたことはすべて、Outlookでは電子メールに含まれるヘッダーを変更できないという結論を裏付けています。

ごめん。それがあなたのオプションであるならば、私は電子メールプロバイダーで転送を管理することを提案します。

于 2012-05-10T05:50:08.387 に答える