転送時に差出人のアドレスを置き換えるマクロ


コメントにて以下のようなご要望をいただきました。


はじめまして。

【Outlook環境】
Office 2010
Outlookバージョン 14.0.7106.5001(64ビット)

で、複数の得意先と担当者を統括しております。

【利用している機能】
仕分けルールと通知 〉 [差出人]が[得意先A]の場合、[担当者A]へ転送する
[差出人]が[担当者A]の場合、[得意先A]へ転送する

【あらたに必要な処理】
この度、得意先の増加に伴い担当を社外に外注することを考えており、
社外の担当者には得意先の名前だけが[差出人]として表示され、
転送されたメールには得意先のメールアドレスが表示されないようにする方法を探していた折、
こちらのウェブページにたどり着きました。

現状では、大元の[差出人]欄(得意先名とメールアドレス)が表示されて転送されるのを、
Outlookのアドレス帳の[名前]だけに置き換えられないものかと考えております。

以上、お知恵を拝借できれば幸いに存じます。
よろしくお願いいたします。


こちらは、自動仕分けのルールでマクロを実行し、そのマクロで転送処理を行えば実現は可能です。
ただ、このシナリオの場合、差出人は特定のアドレスになると思われるので、名前をわざわざアドレス帳から取得せず、マクロの中で指定すれば良いと思います。

マクロは以下の通りです。アドレスや表示名を適宜置き換え、自動仕分けのルールのアクションで「スクリプトを実行する」を選択して、スクリプトとして ForwardByRule を指定してください。

' ここをトリプルクリックでマクロ全体を選択できます。
' ルールで実行されるマクロ
Public Sub ForwardByRule(objMail As MailItem)
    Const ADDRESS1 = "usera@example.com"
    Const NAME1 = "UserA"
    Const ADDRESS2 = "userb@example.com"
    Const NAME2 = "UserB"
    '
    If objMail.SenderEmailAddress = ADDRESS1 Then
        ForwardWithReplacingAddress objMail, ADDRESS2, NAME2
    End If
    If objMail.SenderEmailAddress = ADDRESS2 Then
        ForwardWithReplacingAddress objMail, ADDRESS1, NAME1
    End If
End Sub
' アドレスを置き換えて転送する
Private Sub ForwardWithReplacingAddress(objMail As MailItem, strToAddress As String, strName As String)
    Dim fwdMail As MailItem
    Set fwdMail = objMail.Forward
    fwdMail.To = strToAddress
    fwdMail.Body = Replace(fwdMail.Body, objMail.SenderEmailAddress, strName)
    fwdMail.Send
End Sub

マクロの登録方法やメニューへの追加について

広告

転送時に差出人のアドレスを置き換えるマクロ」への1件のフィードバック

  1. outlooklabさま

    マクロの作成、本当にありがとうございます。

    事業を拡大しようと
    有料で提供されているサービスの利用を検討していたのですが、
    資金以外の部分で当方が要件を満たせず
    事業の拡大自体を見合わせなければならないか、
    という深刻な事態にあった状態の折に、
    outlooklabさまに出会えたことは
    とても幸運でした。

    確かに表示する名前をマクロ内で指定すれば、
    アドレス帳を見に行く必要はないですね。

    まだまだマクロと向き合い始めて日が浅いので
    亀の歩みにはなりますが、
    このマクロを導入する方法なども
    貴ブログを参考にさせていただき
    実行結果をまた報告させていただきたいと思います。

    (ネット上ですからどちらにお住まいか分かりませんが、)
    寒さに気をつけご自愛下さい。

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中