☰

Outlook 2013에서 폴더를 참조하는 VBA 구문은 무엇입니까?

tag-icon • tag-icon email vba microsoft-outlook-2013
Outlook 2013에서 폴더를 참조하는 VBA 구문은 무엇입니까?

기본 폴더(받은 편지함, 보낸 편지함 등)와 동일한 수준에 있는 '보관' 폴더로 항목을 이동할 때 항목을 읽은 것으로 표시하는 일부 코드를 작업 중입니다. 아래 코드는 기본 삭제된 항목 폴더를 사용한 초기 테스트였습니다. 내 Archive 폴더의 항목을 참조할 수 있는 올바른 구문은 무엇입니까?

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Set Ns = Application.GetNamespace("MAPI")
  Set Items = Ns.GetDefaultFolder(olFolderDeletedItems).Items

End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
    Item.UnRead = False
    Item.Save
End Sub

답변1

Archive 폴더를 참조하는 방법을 알아내는 것보다 PickFolder 메서드를 호출하는 것이 더 쉽다는 것을 알았습니다. 이제 내 코드가 제대로 작동합니다.

Option Explicit

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim myFolder As Outlook.Folder


  Set Ns = Application.GetNamespace("MAPI")

  Set myFolder = Ns.PickFolder

  Set Items = myFolder.Items

End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
    Item.UnRead = False
    Item.Save
End Sub

관련 정보