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

あなたの毎日の仕事で、あなたはあなたの連絡先フォルダに保存されていない未知の送信者から来る多くの電子メールを受け取るかもしれません。 これらは迷惑メールまたは悪意のあるメールである可能性があります。この場合、これらのメールを受信トレイではなく特定のフォルダに自動移動する必要があります。 Outlookでこの仕事をどのように解決できますか？

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

VBAコードを適用して、不明な送信者から特定のフォルダーにメールを移動します

---

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

実際には、不明な送信者から特定のフォルダにメールを自動的に移動するルールを作成できます。次のようにしてください。

1。 次のスクリーンショットのように、受信トレイフォルダの下に新しいフォルダを作成します。これにより、不明な送信者からの電子メールが配置されます。

2。 次に、をクリックします ホーム > キャンペーンのルール > ルールとアラートを管理する、スクリーンショットを参照してください：

3。 の中に ルールとアラート ダイアログボックスで、をクリックします。 新しいルール 下 電子メールのルール タブ、スクリーンショットを参照してください：

4。 をクリックします OK に行くボタン ルールウィザード、クリック 受信したメッセージにルールを適用する オプションから 空白のルールから始める セクションボックス、スクリーンショットを参照してください：

5。 次に、をクリックします 次へ ボタン、このステップでは、オプションを選択せず​​にクリックしてください 次へ ボタンを直接押すと、警告ボックスが表示されます。クリックしてください あり ボタン、スクリーンショットを参照してください：

6。 次のダイアログボックスで、 指定したフォルダに移動します 内のオプション ステップ1：アクションを選択します リストボックスをクリックし、リンクされたテキストをクリックします 指定の、そして開かれた ルールとアラート ダイアログで、メールの移動先のフォルダを指定します。スクリーンショットを参照してください。

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

8。 次に、をクリックします 追加 ボタンをクリックし、次にをクリックします。 次へ 最後のウィザードダイアログに移動するには、にルール名を入力します ステップ1：このルールの名前を指定します テキストボックス、およびチェック このルールをオンにします オプションから ステップ2：セットアップルール オプションセクション。 スクリーンショットを参照してください：

9。 そして、 終了 及び Ok ダイアログを閉じるためのボタン。 今後、不明な送信者からのメールは、特定のフォルダに自動的に移動されます。

---

VBAコードを適用して、不明な送信者から特定のフォルダーにメールを移動します

上記の方法は面倒かもしれませんが、ここでは、コードを適用してできるだけ早く処理できます。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession から Project1（VbaProject.OTM） ペインでモードを開き、次のコードをコピーして空のモジュールに貼り付けます。

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

3。 次に、コードを保存してコードウィンドウを閉じ、Outlookを再起動してコードを有効にします。 今後、不明な送信者からのメールが送信されると、自動的に不明なフォルダに移動さ​​れます。スクリーンショットを参照してください。

注意： 未知の 不明なメールが届くと、フォルダが自動的に作成されます。 フォルダ名は「unknow」をスクリプトで他の人に。