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

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タスクを効率化しましょう。この強力なツールは、過去のメールから学習し、インテリジェントで正確な返信を提供し、メールの内容を最適化し、メッセージの作成や修正を手間なく行うことができます。
doc ai email handle

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

  • スマート返信:過去の会話に基づいて調整された、的確で使用準備の整った返信を取得します。
  • 強化されたコンテンツ:メールの文章を自動的に洗練させ、明瞭さと影響力を高めます。
  • 簡単な作成:キーワードを入力するだけで、複数のライティングスタイルで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

3. コードを保存し、コードウィンドウを閉じ、Outlookを再起動してコードを有効にします。これ以降、未知の送信者からのメールは自動的に「不明」フォルダに移動されます(スクリーンショット参照):

doc move emails from unknown 10

注意:「不明」フォルダは、未知のメールが届いた際に自動的に作成されます。スクリプト内でフォルダ名「Unknow」を他のものに変更できます。


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

速報: Kutools for Outlook が無料版をリリース!

新しい Kutools for Outlook の無料版を体験してください。70以上の素晴らしい機能が永遠に使えます!今すぐダウンロードをクリック!

🤖 Kutools AI : 高度なAI技術を使用して、メールの返信、要約、最適化、拡張、翻訳、作成を簡単に行います。

📧 メール自動化: 自動返信 (POPとIMAPで利用可能) / メール送信のスケジュール / メール送信時にルールによる自動 CC/BCC / 自動転送 (高度なルール) / 自動挨拶追加 / 複数の宛先を持つメールを個別のメールに自動的に分割...

📨 メール管理: メールの取り消し / 件名やその他によるスパムメールのブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理...

📁 添付ファイルプロ: バッチ保存 / バッチ切り離し / バッチ圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...

🌟 インターフェースマジック: 😊より美しくクールな絵文字 /重要なメールが来たときに通知 / クローズ中ではなくOutlookを最小化...

👍 ワンクリックの驚き: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーンを表示...

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

Kutools for Outlook をワンクリックで即座にアンロック。待たずに今すぐダウンロードして効率を高めましょう!

kutools for outlook features1 kutools for outlook features2