☰

Outlook で非国別 TLD をブロックできますか?

tag-icon • tag-icon microsoft-outlook-2016
Outlook で非国別 TLD をブロックできますか?

私のメールボックスには、フランスからのスパムがかなり入っています。送信者を迷惑メール オプションでブロックしても、毎回異なる電子メール アドレスが使用されるため、役に立ちません。トップ レベル ドメイン (TLD) をブロックできることはわかっていますが、スパムの多くは TLD ovh(ovh はフランスの ISP) から送信されており、Outlook は国別 TLD しか認識していないようです。

非国別 TLD をブロックする方法はありますか?

答え1

ルールを使うのがベストだと思います。ルールウィザード（ルールの管理）に行き、

  1. 新しいルール
  2. 空白のルールから開始 -> 受信したメッセージにルールを適用する
  3. 次へをクリック
  4. 次に、with specific words in the sender's address青いテキスト（ステップ2の下のボックス内）をチェックしてクリックします。
  5. 検索するテキストを入力してください
  6. 次へをクリック
  7. 実行する操作を選択します - 削除、完全に削除、または移動する（またはその他の操作）
  8. 次
  9. 次へ（例外を追加する必要がない限り）
  10. 名前を付けて実行してください。[完了]をクリックします。

上記は危険だと思います。[メールアドレス]しかし、それで十分かもしれません!

任意のメールを右クリックして、迷惑メール -> 迷惑メール オプションを選択してください。ここから、[ブロックされた送信者] タブに移動して、.ovh を追加します。これも、上記のルールと同じ問題があります。

上記のルールは機能すると確信していますが、機能しない場合は、VBa スクリプトを作成する必要があります...これはテストされていません。念のため、まずメールをバックアップしてください。

Private Sub Application_NewMailEx _
                     (ByVal EntryIDCollection As String)
    Dim arr() As String
    Dim i As Integer
    Dim ns As Outlook.NameSpace
    Dim itm As MailItem
    Dim m As Outlook.MailItem
    On Error Resume Next
    Set ns = Application.Session
    arr = Split(EntryIDCollection, ",")
    For i = 0 To UBound(arr)
        Set itm = ns.GetItemFromID(arr(i))
        If itm.Class = olMail Then
             Set m = itm
             If InStr(0, m.SenderEmailAddress, ".ovh", 1) Then
                 m.Delete
             End If
        End If
    Next
    Set ns = Nothing
    Set itm = Nothing
    Set m = Nothing
End Sub

関連情報