Outlook でメールを読んだ後に指定フォルダーに移動させるには、どうすればよいですか？
Outlook でメールを読んだ後に指定フォルダーに自動的に移動させることは、受信トレイをすっきり整理する最適な方法です。多くのOutlook ユーザーが、既読メールを自動で移動させるルールを作成しようと試みますが、実はOutlook のルールウィザードではこの処理はサポートされていません。本記事では、VBA コードを使って、メールを読んだ後に指定フォルダーへ移動させる方法をご紹介します。
Outlook でメールを読んだ後に指定フォルダーに移動させる
- メールの生産性をAI テクノロジーで向上させましょう。素早い返信、新規作成、メッセージの翻訳などが、より効率的に行えるようになります。
- ルールに基づいてメール送信を自動化。自動 CC/BCCや自動転送、さらに Exchange サーバー不要で自動返信（不在時対応）も可能に…
- 次のようなリマインダー機能も搭載：BCC に私が含まれているメールに返信する際にプロンプトを表示するBCC リストにいる状態で「全員に返信」しようとした際の警告や、添付忘れリマインダーで忘れがちな添付ファイルを見逃しません…
- 次のような機能でメール作業の効率をさらに向上：添付ファイル付きで返信（全員)、署名や件名に自動で挨拶文や日時を挿入、複数メールの一括返信…
- 次のような機能でメール業務をさらにスムーズに：メールの取り消し、添付ファイルツール（すべて圧縮、自動保存すべて…）、重複を削除、およびクイックレポート…
Outlook でメールを読んだ後に指定フォルダーに移動させる
Outlook で VBA コードを実行すれば、メールを読んだ後に指定のフォルダーに自動で移動させることができます。
1。まず、受信トレイ内に「Reviewed」という新しいフォルダーを作成する必要があります。
2。受信トレイフォルダーを開き、次にAlt＋F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
3。次に、Project1＞Microsoft Outlook Objects＞ThisOutlookSessionをダブルクリックして展開し、VbaProject.OTMエディターを開きます。
4。次に、以下の VBA コードをコピーし、上記のスクリーンショットのように VbaProject.OTM エディターに貼り付けてください。
VBA コード：既読後にメッセージを移動
Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
oMessage.Move oFolderDst
Next
End Sub 5。次に、保存ボタンをクリックして VBA コードを保存し、Microsoft Visual Basic for Applicationsウィンドウを閉じてください。
6。クイックアクセスツールバーを右クリックし、表示されるコンテキストメニューからクイックアクセスツールバーのユーザー設定を選択してください。スクリーンショットをご覧ください：
7。Outlook のオプションダイアログボックスで、次の操作を行ってください：
1）。マクロを次のコマンドから選択するドロップダウンリストから選択します。
2）。Project1.ThisOutlookSessionを、次のコマンドから選択するドロップダウンリストの下にあるボックス内で選択します。
3）。追加ボタンをクリックします。
4）。OKボタンをクリックします。
8。すると、マクロボタンがクイックアクセスツールバーに表示されます。受信トレイフォルダーにいることを確認してから、マクロボタンをクリックし、受信トレイ内で VBA コードを実行してください。
注記：
1。この VBA コードはOutlook 2007、2010、および2013 でご利用いただけます。ただし、Outlook 2007 では、実行ボタンを直接クリックしてコードを実行できます。
2。Outlook に複数のメールアカウントが登録されている場合、この VBA コードはデフォルトで設定されたデータファイルのアカウントにのみ適用されます。既定のデータファイルは、ファイル＞情報＞アカウント設定＞アカウント設定をクリックしてアカウント設定ダイアログボックスを開くことで確認できます。次に、データファイルタブに移動すると、既定のデータファイルの前に
マークが表示されていることがわかります。
3。別のメールアカウントに既定のデータファイルを変更する場合は、アカウント設定ダイアログボックス内で、デフォルトに設定したいアカウントを強調表示してから、デフォルトに設定をクリックしてください。
4。VBA コードを初めて実行した際に、既読メールが一度にすべて移動されない場合は、受信トレイ内のすべての既読メールが移動されるまで、マクロボタンを繰り返しクリックしてください。
最高の Office 生産性ツール
まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！
🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。
📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...
📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...
📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...
🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...
👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...
👩🏼🤝👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...
Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！
ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！
🚀 ワンクリックダウンロード — Office アドインをすべて入手
強く推奨：Kutools for Office（5-in-1）
ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！
- ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
- 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
- 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint