Outlook 2010 규칙 :받는 사람이 5 명을 초과하면 메시지 이동

수신자가 5 명 이상인 이메일을받는 유일한 경우는 사무실 가십이 진행되는 시점입니다. 받는 사람이 5 명 이상인 메시지를 정크 폴더로 이동하도록 규칙 / 필터를 만들고 싶습니다.

Outlook 2010에서도 가능합니까? 기본 규칙에서 그런 것을 찾을 수 없었습니다. 규칙을 VB 할 수 있는지 확실하지 않았습니다. 모든 통찰력에 감사드립니다.

microsoft-outlook-2010 email-filter

— 킹 코데
소스

VBA를 사용하면 가능할 것입니다. 다음 은 발송되는 메일의 수신자 수를 계산하는 매크로입니다 (Application_ItemSend () 이벤트). 여기에 설명 된대로 NewMailEx () 또는 Items.ItemAdd () 이벤트를 사용하여 메일을 수신 할 때 실행되도록 조정할 수 있어야합니다 .

— Karan

누군가 관심이 있다면 StackOverflow와 SuperUser의 리소스를 사용하여 VBA 스크립트를 작성했습니다.

이 스크립트는 모든 수신 이메일을 가져 와서 To:필드의 수신자를 계산합니다. 수신자 수가 5보다 크면 읽은 것으로 표시하고 Gossip폴더로 이동 합니다.

대상에 CVS10 명의 수신자가있는 동시 버전 시스템에서 업데이트가 포함되어 있는지 확인 하고 해당 폴더로 이동 하는지 확인하는 보조 조건도 있습니다 .

Sub moveOfficeGossip(item As Outlook.MailItem)

    Dim strNames As String, i As Integer, j As Integer, cvs As String
    Dim olApp As New Outlook.Application
    Dim olNameSpace As Outlook.NameSpace
    Dim olDestFolder As Outlook.MAPIFolder

    j = 1
    cvs = "CVS"
    strNames = item.To
    Set olNameSpace = olApp.GetNamespace("MAPI")

    For i = 1 To Len(strNames)
        If Mid(strNames, i, 1) = ";" Then j = j + 1
    Next i

    If (j >= 5) Then
        If InStr(UCase(item.subject), cvs) Then
            Set olDestFolder = olNameSpace.Folders("Personal Folders").Folders("Filtered").Folders("CVS")
            item.Move olDestFolder
        Else
            Set olDestFolder = olNameSpace.Folders("Personal Folders").Folders("Filtered").Folders("Gossip")
            item.UnRead = False
            item.Move olDestFolder
        End If
    End If

End Sub

이것이 가장 형식적인 형식이 아닌 경우 사과 드리며 조금 더 잘 정리 할 수 있다는 것을 알고 있지만 Visual Basic 구문을 사용하려는 첫 번째 시도였습니다.

— 킹 코데
소스