Outlook 2010 내의 매크로에서 공유 사서함에 대한 서브 루틴 트리거

Question

전자 메일이 들어올 때 Items_ItemAdd 서브 루틴을 트리거하는 코드가 있습니다. 내 개인 전자 메일받은 편지함에서 완벽하게 작동합니다. 여기가 ThisOutlookSession라는 기본 Outlook 모듈로 작성, 내가 사용하는 코드입니다 :

Option Explicit 

Public WithEvents Items As Outlook.Items 

Public Sub Application_Startup() 
Dim olApp As Outlook.Application 
Dim objNS As Outlook.NameSpace 
Set olApp = Outlook.Application 
Set objNS = olApp.GetNamespace("MAPI") 
Set Items = objNS.GetDefaultFolder(olFolderInbox).Items 
End Sub 

Public Sub Items_ItemAdd(ByVal Item As Object) 
    On Error GoTo ErrorHandler 
MsgBox "Replace the code for this message with your subroutine" 
ProgramExit: 
    Exit Sub 
ErrorHandler: 
    MsgBox Err.Number & " - " & Err.Description 
    Resume ProgramExit 
End Sub 

문제는 내가 내 상사가 날 추가 공유 이메일받은 편지함을 위해이 일을하는 수많은 방법을 시도한다는 것입니다 그룹에. F.y.i. 그가이 공유 이메일의 사용자 목록에 나를 추가 한 후에는 파일 -> 정보 -> 계정 설정 -> 계정 설정 -> 기타 설정 -> 고급 ->을 추가해야했습니다.을 공유 전자 메일의 이름을 써야했습니다 .- 공유 전자 메일에 대한 서브 루틴을 만들 수있는 모든 종류의 솔루션을 시도한 후에. 나는 그것이 오류 메시지를 얻을하지 않습니다 구현할 때 그것 때문에

http://social.msdn.microsoft.com/Forums/office/en-US/b85f08f0-4f6b-4663-a75e-272350c07d2c/vba-outlook-2010-how-to-detecte-the-new-email-in-shared-mailbox?forum=outlookdev

http://www.slipstick.com/developer/code-samples/process-items-shared-mailbox/

http://www.outlookcode.com/article.aspx?id=62

비는 날 이벤트가 촉발하는 것이 불가능처럼, 나를 위해 도움이되었다 이 공유 전자 메일받은 편지함에 대한 를 가리 키도록 새로운 라인

Set Items = objNS.GetDefaultFolder(olFolderInbox).Items 

: 나는 어떻게 항목을 공유 이메일받은 편지함에 대한를 찾습니다 VBA 디버거 시계을 이용하여 생각 나는 아래의 라인을 대체 어디에 내 가장 희망적인 시도이다 항목 공유 이메일받은 편지함의은 : 나에게

Set Items = objNS.Folders.Item(4).Items.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items 

는 항목 그래서 난이 도전적 일 것이라고 생각 오른쪽하지만 같은 이야기, 아무것도 것 같다 일어난다. 문제는 이메일의받은 편지함에 완벽하게 작동하는 코드가 있는데 왜 공유 이메일의받은 편지함에서 사용할 수 없습니까?

Answer 1

내가 볼 수없는 것은 NameSpace.GetSharedDefaultFolder에 대한 호출입니다. Inbox 소유자의 전자 메일 주소를 해당 메서드의 인수로 전달하면 해당 공유 폴더에 대한 적절한 Folder 개체를 가져옵니다. 그런 다음 Folder.Items를 가져와 Items.ItemAdd 이벤트에 액세스 할 수 있습니다.

NameSpace.GetSharedDefaultFolder 방법 (아웃룩) http://msdn.microsoft.com/en-us/library/office/ff869575(v=office.15).aspx