Outlookで未知の送信者からのメールを特定のフォルダに移動するにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-05-23

日常業務の中で、連絡先フォルダに保存されていない未知の送信者からのメールを多数受信することがあります。これらは迷惑メールや悪意のあるメールである可能性があり、その場合、これらのメールを受信トレイではなく特定のフォルダに自動的に移動したいと思うでしょう。Outlookでこの作業を解決するにはどうすればよいでしょうか？

ルールを作成して未知の送信者からのメールを特定のフォルダに移動する

VBAコードを適用して未知の送信者からのメールを特定のフォルダに移動する

ルールを作成して未知の送信者からのメールを特定のフォルダに移動する

実際には、未知の送信者からのメールを特定のフォルダに自動的に移動するルールを作成できます。以下の手順に従ってください：

1. 受信トレイフォルダの下に新しいフォルダを作成し、未知の送信者からのメールを配置します（次のスクリーンショット参照）：

doc move emails from unknown 1

2. 次に、 ホーム > ルール > ルールと通知の管理をクリックしてください（スクリーンショット参照）：

doc move emails from unknown 2

3. 「ルールと通知」ダイアログボックスで、「電子メールルール」タブの下にある「新しいルール」をクリックしてください（スクリーンショット参照）：

doc move emails from unknown 3

4. 「OK」ボタンをクリックして「ルールウィザード」に進み、「空白のルールから開始」セクションボックスから「受信したメッセージにルールを適用する」オプションを選択してください（スクリーンショット参照）：

doc move emails from unknown 4

5. 次に「次へ」ボタンをクリックします。このステップでは、どのオプションも選択せず、直接「次へ」ボタンをクリックします。警告ボックスが表示されたら、 「はい」ボタンをクリックしてください（スクリーンショット参照）：

doc move emails from unknown 5

6. 次のダイアログボックスで、 「ステップ1: アクションを選択」リストボックス内の「指定されたフォルダに移動する」オプションをチェックし、リンクテキスト「指定された」をクリックし、開かれた 「ルールと通知」ダイアログで、メールを移動したいフォルダを指定してください（スクリーンショット参照）：

doc move emails from unknown 6

7. 「OK」ボタンをクリックし、「次へ」ボタンを続けてクリックします。「例外はありますか？」ダイアログで、「ステップ1: 例外を選択」リストボックス内の「 送信者が指定されたアドレス帳に含まれている場合は除く」オプションをチェックし、リンクテキスト「指定された」をクリックすると、「アドレス一覧の追加」ボックスがポップアップしますので、除外したい連絡先が含まれる連絡先フォルダを選択してください（スクリーンショット参照）：

doc move emails from unknown 7

8. 「追加」ボタンをクリックし、「次へ」をクリックして最後のウィザードダイアログに進みます。「ステップ1: このルールの名前を指定」テキストボックスにルール名を入力し、「 ステップ2: ルールオプションの設定」セクションで「このルールを有効にする」オプションをチェックします（スクリーンショット参照）：

doc move emails from unknown 8

9. そして「完了」と「OK」ボタンをクリックしてダイアログを閉じます。これ以降、未知の送信者からのメールは自動的に特定のフォルダに移動されます。

OutlookのAIメールアシスタント：スマートな返信、クリアなコミュニケーション（ワンクリックで魔法のような操作！）無料

Kutools for OutlookのAIメールアシスタントを使用して、毎日のOutlookタスクを効率化しましょう。この強力なツールは、過去のメールから学習し、インテリジェントで正確な返信を提供し、メールの内容を最適化し、メッセージの作成や修正を手間なく行うことができます。

この機能がサポートする内容：

スマート返信：過去の会話に基づいて調整された、的確で使用準備の整った返信を取得します。
強化されたコンテンツ：メールの文章を自動的に洗練させ、明瞭さと影響力を高めます。
簡単な作成：キーワードを入力するだけで、複数のライティングスタイルでAIが残りを処理します。
インテリジェント拡張：文脈を理解した提案で考えを広げます。
要約：長文のメールを瞬時に簡潔にまとめます。
グローバル対応：メールを簡単にどの言語にも翻訳できます。

この機能がサポートする内容：

スマートメール返信
最適化されたコンテンツ
キーワードベースの下書き
インテリジェントなコンテンツ拡張
メールの要約
多言語翻訳

何より、この機能は永遠に完全無料です！今すぐAIメールアシスタントをダウンロードしてお楽しみください！

VBAコードを適用して未知の送信者からのメールを特定のフォルダに移動する

上記の方法が面倒な場合、ここでは、できるだけ早く処理するためにコードを適用することができます。

1. ALT + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、Project1(VbaProject.OTM)ペインからThisOutlookSessionをダブルクリックしてモジュールを開き、次のコードを空のモジュールにコピー＆ペーストします。

VBAコード：未知の送信者からのメールを特定のフォルダに自動的に移動する：

Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
    Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
    xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
    Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
    For I = 3 To 1 Step -1
        xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
        Set xContactItem = xContactItems.Find(xFilter)
        If TypeName(xContactItem) <> "Nothing" Then Exit For
    Next
Next
If xContactItem Is Nothing Then
    Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
    xFound = False
    For Each xSubFolder In xInboxFlds
        If xSubFolder.Name = "Unknown" Then
            xFound = True
            Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
            Exit For
        End If
    Next
    If xFound = False Then
        Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
    End If
    item.Move xTargetFolder
End If
End Sub

doc move emails from unknown 9