徹底活用する方法を研究するサイトです。マクロコメントにて以下のようなご要望をいただきました。今年から勤務先で社外宛メール送信には以下のようなルールが作られました。手動でToからBCCに移さなければいけません。慣れかもしれませんが、再送の手間が非常にタイムロスになっています。To/CC/BCCに1つでも社外ドメインが含まれていたらToに自分のアドレス、その他にTo/CC/BCCに含まれていた全ての宛先をBCCに入力(移動)して送信する、というマクロがもし可能であれば是非教えていただけると助かります。下記のようなマクロで実現可能です。定義を適切に変更して使用してください。ここをトリプルクリックでマクロ全体を選択できます。自組織のドメイン名を指定。参考になるコードをありがとうございます。MY_DOMAIN」と後方一致になるようにして、MY_DOMAIN=”company.co.jp”と@をつけずに指定するとよいと思います。MY_DOMAINを定数ではなく配列変数として、Array関数でまとめて指定するようにすると、自組織と判断するアドレスを複数設定できます。IfNextところで、ひとつ教えてください。Recipient.AddressEntry.Typeでは、どういう場合にどのような値が得られるのですか。PMご意見ありがとうございます。参考にさせていただきます。アドレスの種類を表します。フォーマットにはドメインが含まれず、基本的に組織内のあて先であるため、チェックする意味がないからです。PMAddressEntry.TypeでExchangeサーバのアドレスがチェックできるのですね。僕は同じことを『アドレスが「/O=」で始まる』という条件でチェックしていました。自分で考えたわけではなく、ネットで検索して見つけたものです。どちらが速いかはわかりませんが(普通のメールなら気になるほどの差は出ないと思います)、AddressEntry.Typeでチェックするほうがスマートですね。ところで、お示しいただいたマクロでは、アドレスに個人配布リストが含まれているとどうなりますか。個人配布リストは.addressが空白となっているようなので、おそらく””という外部アドレスと判断されて、誤動作するのではないかと思います。個人配布リストは.DisplayType=5という条件でチェックできるのですが、そのあとアドレス帳からその配布リストのメンバーを引っ張ってきてチェックする必要があって、面倒です。アドレスチェックをする前にすべての個人配布リストを展開(手動なら+ボタンを押す)してから行えばよいと思い、Outlookマクロで個人配布リストを展開することができないか調べてみたのですが、わかりません。ご存知ならお教え下さい。Outllokにもマクロ記録機能があると楽なのですが。PMこのマクロでは個人用配布リストを考慮してませんでした。個人用配布リストの展開処理をマクロで実行することはできないので、マクロ内でのチェックの際にメンバーを連絡先から取得するしかありません。PM投稿すると半角スペースがすべて削除されてしまうのですね。IFやForのインデントが全部飛んでしまったので、大変見にくくて申し訳ありません。Thenの間違いです。AMTypeと”EX”の間に不等式<>の半角があるのですが、投稿すると消えてしまうようです。移動するには、返信処理自体を行うマクロを作るのが簡単なものとなります。移動するだけならループは一つになります。マクロは以下の通りです。コメントをキャンセルコメントを入力してください。以下に詳細を記入するか、アイコンをクリックしてログインしてください。アカウントを使ってコメントしています。アカウントを使ってコメントしています。アカウントを使ってコメントしています。アカウントを使ってコメントしています。新しいコメントがついたらメールで通知。メールアドレスキャンセル投稿を送信できませんでした。メールアドレスを確認してください。メール送信チェックに失敗しました。このブログではメールでの投稿共有はできません。使用に同意したとみなされます。ポリシー%d人のブロガーが「いいね」をつけました。