メインコンテンツへスキップ

Outlookで読んだ後、指定したフォルダに電子メールメッセージを移動するにはどうすればよいですか?

読んだ後に電子メールメッセージを指定したフォルダーに移動することは、Outlookで受信トレイフォルダーをクリーンに保つための最良の方法です。 多くのOutlookユーザーにとって、これらの既読メールの移動に関するルールを作成する傾向があります。 実際、Outlookはこのルールウィザードプロセスをサポートしていません。 この記事では、OutlookでVBAコードを使用して読み取った後、指定したフォルダーに電子メールメッセージを移動する方法を示します。

Outlookで読んだ後、メールメッセージを指定したフォルダに移動します

Office タブ - Microsoft Office でタブによる編集と参照を有効にし、仕事をスムーズにします
Kutools for Outlook - 100 以上の高度な機能で Outlook を強化し、優れた効率を実現します
これらの高度な機能を使用して、Outlook 2021 ~ 2010 または Outlook 365 を強化します。 包括的な 60 日間の無料トライアルを利用して、メール エクスペリエンスを向上させてください。

矢印青い右バブルOutlookで読んだ後、メールメッセージを指定したフォルダに移動します

OutlookでVBAコードを実行して読んだ後、電子メールメッセージを指定したフォルダーに移動できます。

1.まず、新しいフォルダ名を作成する必要があります。閲覧」を受信トレイフォルダの下に置きます。

2.受信トレイフォルダを開き、を押してください 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3.次に、ダブルクリックして展開します Project1 > MicrosoftOutlookオブジェクト > このOutlookSession を開く 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.次に、 Save ボタンをクリックしてVBAコードを保存し、 アプリケーション向け Microsoft Visual Basic 窓。

6.右クリックします クイックアクセスツールバー、および選択 クイックアクセスツールバーをカスタマイズする 右クリックメニューから。 スクリーンショットを参照してください:

7。 の中に Outlookのオプション ダイアログボックスでは、次のことを行う必要があります。

1)。 選択する マクロ セクションに からのコマンドを選択 ドロップダウンリスト;

2)。 選択する Project1。 ThisOutlookSession 下のボックスに からのコマンドを選択 ドロップダウンリスト;

3)。 クリック Add ボタン;

4)。 クリック OK

8.次に、 マクロ に表示されるボタン クイックアクセスツールバー。 既読メッセージをすべて移動する受信トレイフォルダにいることを確認してから、[ マクロ 受信トレイ内でVBAコードを実行するためのボタン。

ノート:

1.このVBAコードは、Outlook 2007、2010、および2013に適用できます。 ただし、Outlook 2007では、[ ラン ボタンを押してコードを実行します。

2. Outlookに複数の電子メールアカウントが存在する場合、VBAコードは、データファイルがデフォルトとして設定されているアカウントにのみ適用できます。 クリックするとデフォルトのデータファイルを確認できます File > インフォ > アカウント設定 > アカウント設定 を開く アカウント設定 ダイアログボックス。 次に、 データファイル タブでは、デフォルトのデータファイルがでマークされていることがわかります 前に。

3.デフォルトのデータファイルを別のメールアカウントに変更する場合は、デフォルトとして設定するアカウントを選択して強調表示し、[ デフォルトとして設定 セクションに アカウント設定 ダイアログボックス。

4. VBAコードを初めて実行し、既読メッセージが一度に移動されないことを確認する場合は、受信トレイ内のすべての既読メッセージが移動されるまで、[マクロ]ボタンをクリックし続けてください。


最高のオフィス生産性向上ツール

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

 

Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
I used this VBA code, but now all of the emails moved to "Reviewed" are gone? Any ideas why?
This comment was minimized by the moderator on the site
has anyone had this not work the second time you tried to apply it?
This comment was minimized by the moderator on the site
Buongiorno


Esiste la versione per Outlook 365 in italiano (non so se cambia qualcosa). Grazie
This comment was minimized by the moderator on the site
What line do I add when I only want this rule to apply to emails with a subject line including a word or text?
This comment was minimized by the moderator on the site
Where's all the Dim's?????????????????????/ o.0
This comment was minimized by the moderator on the site
I tried the above method but nothing happens. I verified the folder name was accurate and in the right location. I also set my main account as default, where i will be moving read messages from. I click on the Macro button...nothing. Help. Did I miss something.
This comment was minimized by the moderator on the site
You have to activate the references in VBA
This comment was minimized by the moderator on the site
Can this VBA code be altered to move messages from an Inbox subfolder to a "Reviewed" folder in said subfolder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations