누구든지 관심이있는 경우 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 기본 구문을 사용하여 나의 첫 번째 시도였다.
리소스를 이용해 주셔서 감사합니다. 내가 무엇을 생각해 낼지 알게 될거야. – kingkode