2013-02-06 3 views
3

수신자가 5 명 이상인 전자 메일 만 수신하면 사무실 소문이 돌고있는 경우입니다. 5 명 이상의 수신자가 들어오는 모든 메시지를 정크 폴더로 옮기기위한 규칙/필터를 만들고 싶습니다.Outlook 2010 규칙 : 5 명 이상의 수신자가있는 경우 메시지 이동

Outlook 2010에서 가능합니까? 기본 규칙에서 그런 것을 찾을 수 없었습니다. VBA를 매크로 또는 기타를 통해 사용할 수 있는지 확실하지 않았습니다.

모든 통찰력, 도움 또는 자원은 평가됩니다.

답변

2

누구든지 관심이있는 경우 DeanOC 리소스를 사용하여 VBA 스크립트를 작성했습니다.

이 스크립트는 수신자 수가 5보다 큰 경우 To: 필드에서 수신자를 계산하고이를 읽음으로 표시하고 이동은 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 기본 구문을 사용하여 나의 첫 번째 시도였다.

3

이 링크 : How to replace text in the body of an incoming message with a hyperlink in Outlook 2010?은 "메시지 도착 후"조건을 사용할 때 사용자 지정 작업을 만드는 방법을 보여줍니다. 메일 항목에 5 명 이상의 수신자가 있는지 확인한 다음 메일 항목을 정크 폴더로 이동하도록 VBA 코드를 변경해야합니다.

받는 사람

는 메시지가 당신의 기준은 다음 원하는 폴더로 메시지를 이동 MailItem.Move 방법을 사용할 수 있습니다 충족하는 경우 MailItem.To 특성 (세미콜론으로 구분 된 문자열)에서

를보고 찾을 수 있습니다.

이 링크 : MailItem Members (Outlook)MailItem 개체에 대한 추가 정보를 제공합니다.

+0

리소스를 이용해 주셔서 감사합니다. 내가 무엇을 생각해 낼지 알게 될거야. – kingkode

관련 문제