X人宛てのOutlookで電子メールをフィルタリングする[複製]

たとえば、15人以上に送信される電子メールをフィルタリングできますか？このようなものは達成可能ですか？Outlook 2016では？または、開発者オプションでマクロ/ビジュアルベーシックを使用して作成できるのは、このようなものですか？

誤って15人にメールを送信したときの警告ではなく、フィルターを要求するため、質問は重複していません。

Public WithEvents myOlApp As Outlook.Application

Sub Application_Startup()
    Set myOlApp = Outlook.Application
End Sub

Private Sub myOlApp_NewMailEx(ByVal EntryIDCollection As String)
    Dim item As MailItem
    Dim olItem As Outlook.MailItem
    Dim arr() As String
    Dim i As Integer
    Dim objFolderInbox As Outlook.MAPIFolder
    Dim objFolderDL As Outlook.MAPIFolder

    Set objNS = myOlApp.GetNamespace("MAPI")
    Set objFolderInbox = objNS.GetDefaultFolder(olFolderInbox)
    Set objFolderDL = objFolderInbox.Folders("E-mail DL")

    On Error GoTo ErrorHandler

    ' Split collection
    arr = Split(EntryIDCollection, ",")

    ' For each new e-mail / event / etc
    For i = 0 To UBound(arr)
        ' Set item
        Set item = objNS.GetItemFromID(arr(i))

        ' Check if e-mail
        If item.Class = olMail Then
            Set olItem = item
            Set Recips = olItem.Recipients

            ' Check if number of recipients > 15
            If Recips.Count > 15 Then
                ' Move to different folder
                olItem.Move objFolderDL
            End If
        End If
    Next

ProgramExit:
    Exit Sub

ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ProgramExit
End Sub

これを実現するには、[表示]-> [表示設定]> [フィルター]のOutlookのフィル​​ターを使用します。そうでない場合は、regeditを使用して有効にできるクエリビルダで確実に実行できます。

次のパスの下に新しいキーを追加しますHKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 16.0 \ Outlook

QueryBuilderという名前を付けます。これで、ビュー設定の下でクエリビルダーを見つけることができます。