PropertyChange 이벤트를 구현하려면 어떻게해야합니까?

Question

MailItem에서 변경된 내용에 대해 자세히 알고 싶습니다.

Application.Session.Folders ("TargetFolder")를 변수로 사용하여 (예 : Private Sub olInvMbxItems_ItemChange(ByVal X As Object)) ItemChange를 트리거 할 수있었습니다.

X에서 변경된 속성을 알고 싶습니다. X을 Private Sub X_PropertyChange(ByVal x As Object)의 전역 변수에 전달하면 ItemChange의 첫 번째 패스에서 X이 초기화되지 않았으므로 첫 번째 반복이 누락됩니다.

MailItems의 폴더를 모니터링하여 범주 변경을 검색하려면 어떻게해야합니까? 여기

Handle ItemChange event when outlook appointments are dismissed

과 : ItemChange는이 작업을 수행하는 동안 내가 특정 카테고리에 보면, 여기 언급 한 바와 같이 많은 변화가 ItemChange을 트리거로, 활동의 중복을 제공 이진

Outlook Macro that will copy an email I flag and put it in a folder

두 번째 항목의 UserProperties에 대한 플래그는 일회용 이벤트가 아니기 때문에 작동하지 않습니다.

Outlook Events VBA은 PropertyChange를 사용한다고하지만 구현 기술은 제공하지 않습니다.

Answer 1

MAPI 수준에서도 저장소 공급자는 변경된 내용을 추적하지 않습니다. 유일한 해결책은 이전 (다른 곳에서 저장된)과 새로운 값을 비교하여 변경된 사항을 확인하는 것입니다.

Answer 2

다음은 단일 선택에 대해 작동하는 방법입니다. 정제는 아직 필요하지만, 이것은 출발점이 될 것입니다 :

Private WithEvents olExplorer As Outlook.Explorer 
Private olCurSel As Selection 
Private WithEvents olCurSelItem As Outlook.MailItem 

Private Sub olExplorer_SelectionChange() 
    Set olCurSel = olExplorer.Selection 
    Set olCurSelItem = Nothing 
    Dim i As Long 
    For i = 1 To olCurSel.Count 
    If TypeName(olCurSel.Item(i)) = "MailItem" Then 
     Set olCurSelItem = olCurSel.Item(i) 
    End If 
    Next i 
End Sub 

Private Sub olCurSelItem_PropertyChange(ByVal Name As String) 
    Debug.Print Name; " is what changed!" 
End Sub 

우리는 항목이 선택되었다는 것을 알 수 Outlook.Explorer.Selection 사용. 그런 다음 해당 항목을 Outlook.MailItem에 조건부로 할당하고 이벤트를 사용하여 Outlook.MailItem 우리가 취하려고하는 작업을 트리거 할 수 있습니다.

문제 :

1. 가 복수의 선택
2. SelectionChange을 처리하지 않음은 물론 각 선택에 읽기 창에 의해 트리거됩니다. 따라서 읽기 창이 열려 있으면 두 번 실행됩니다. 위에서 설명한대로 olCurSelItem은 각 SelectionChange 두 번 설정됩니다.
3. 이것은 로컬 변경에 의해서만 트리거됩니다. 사서함에 액세스 할 수있는 다른 시스템에서는 항목을 변경할 수 있으며 작업을 트리거하지 않습니다.