☰

Outlook 2010 규칙: 수신자가 5명보다 많으면 메시지 이동

tag-icon • tag-icon microsoft-outlook-2010 email-filter
Outlook 2010 규칙: 수신자가 5명보다 많으면 메시지 이동

수신자가 5명 이상인 이메일을 받는 유일한 때는 사무실에 대한 소문이 떠돌고 있을 때입니다. 수신자가 5명 이상인 수신 메시지를 정크 폴더로 이동하는 규칙/필터를 만들고 싶습니다.

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

답변1

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

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

CVS제목에 포함되어 있는지 (수신자가 10명인 동시 버전 시스템에서 업데이트를 받음) 확인하고 해당 폴더로 이동하는지 확인하는 두 번째 조건도 있습니다 .

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 구문을 사용하려는 첫 번째 시도였습니다.

관련 정보