返信の際に組織外のアドレスを Bcc に移動するマクロ


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


管理人様

「組織外への送信の際にアドレスをすべて Bcc に移動するマクロ」に類似した機能となりますが、返信メール作成時に、自動的に組織外のアドレスをBCCに移動することはできないでしょうか。
  「組織外への送信の際にアドレスをすべて Bcc に移動するマクロ」では送信ボタンをクリックしてから自動的に宛先がBCCに移動しますが、できれば、返信メール作成時にBCCに移動していることを確認したうえで、送信ボタンをクリックしたいと考えています。

よろしくお願いいたします。


返信メール作成時に組織外のアドレスを Bcc に移動するには、返信処理自体を行うマクロを作るのが簡単なものとなります。
組織外への送信の際にアドレスをすべて Bcc に移動するマクロでは社外あての送信の際に自分以外のすべてのアドレスを Bcc に移動するという条件だったため、ループが二つありましたが、単に組織外のアドレスを Bcc に移動するだけならループは一つになります。
マクロは以下の通りです。

' ここをトリプルクリックでマクロ全体を選択できます。
Public Sub ReplyWithMovingExternalAddresToBcc()
     Const MY_DOMAIN = "*@example.com" ' 自組織のドメイン名を指定。@ の前に * を付ける
     Dim msgReply As MailItem
     Dim objRec As Recipient
     ' 現在表示しているアイテムに返信
     If TypeName(ActiveWindow) = "Inspector" Then
         Set msgReply = ActiveInspector.CurrentItem.ReplyAll
     Else
         Set msgReply = ActiveExplorer.Selection(1).ReplyAll
     End If
     ' 組織外の受信者が存在するかどうかの確認
     For Each objRec In msgReply.Recipients
         If objRec.AddressEntry.Type <> "EX" Then
             ' 組織外の受信者だったら
             If Not objRec.Address Like MY_DOMAIN Then
                 ' Bcc に移動
                 objRec.Type = olBCC
             End If
         End If
     Next
     ' 返信メッセージを表示
     msgReply.Display
End Sub

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

コメントを残す

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

WordPress.com ロゴ

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

Google フォト

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

Twitter 画像

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

Facebook の写真

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

%s と連携中