VBA Outlook 이벤트 이동 이메일

Question

Outlook에서 움직이는 항목/이메일의 이벤트를 가져 오는 방법을 검색합니다.

검사기를 사용할 수 있습니까? 아니면 itemsent 또는 newmail과 같은 이벤트 처리기가 있습니까?

I는 4 개 이상의 메일 박스를 가지고 :

당신에게

---

상세 정보 감사합니다. 각 폴더와 하위 폴더의 숫자가 X 개 있습니다 (그 중 1 개는 수백만 개의 폴더가있는 라이브 링크 상자입니다). 일부는 일반 상자이며 일반적인 메일을 끌는 사람이 있습니다.

메일이 라이브 링크 상자의 폴더로 이동 될 때마다 캐치하려고합니다.

Answer 1

폴더의 컬렉션에 항목을 추가하면 이벤트가 시작됩니다. 예를 들어, 기본받은 편지함보다 한 수준 아래에 "Stuff"라는 폴더가 있다고 가정합니다. 이 코드는 이메일이 해당 폴더로 이동 될 때마다 실행됩니다.

Private WithEvents Items As Outlook.Items 

Private Sub Application_Startup() 
    Dim olApp As Outlook.Application 

    Set olApp = Outlook.Application 
    Set Items = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Stuff").Items 
End Sub 

Private Sub Items_ItemAdd(ByVal item As Object) 

    On Error GoTo ErrorHandler 

    MsgBox "You moved an item into the 'Stuff' folder." 

ProgramExit: 
    Exit Sub 
ErrorHandler: 
    MsgBox Err.Number & " - " & Err.Description 
    Resume ProgramExit 
End Sub 

Function GetNS(ByRef app As Outlook.Application) As Outlook.NameSpace 
    Set GetNS = app.GetNamespace("MAPI") 
End Function 

ThisOutlookSession에 붙여넣고 Outlook을 다시 시작하십시오. 전자 메일이 해당 폴더로 이동하면 팝업이 나타납니다.