अतिरिक्त इनबॉक्स

Question

मैं Outlook 2007 का उपयोग कर रहा करने के लिए संदर्भ प्राप्त करें - और अपने मुख्य मेलबॉक्स है:, खरीद का अनुरोध करें

दोनों शीर्ष स्तर के रूप में दिखाई देते हैं:, मार्क

टैट मैं भी अपने प्रोफ़ाइल के लिए एक और मेलबॉक्स को शामिल किया है आउटलुक के भीतर फ़ोल्डर:

मेलबॉक्स - टैट, मार्क> -Conversation इतिहास
-Deleted आइटम
-Drafts
- इनबॉक्स
-Junk ई-मेल

मेलबॉक्स - अधिप्राप्ति, अनुरोध
--Conversation इतिहास
--Deleted आइटम
--Drafts
--Inbox
--Junk ई-मेल

मैं का उपयोग कर (टेट, मार्क) मेरा डिफ़ॉल्ट इनबॉक्स के लिए एक संदर्भ प्राप्त कर सकते हैं:
Set Inbox = ns.GetDefaultFolder(olFolderInbox)

"प्रोक्योरमेंट, अनुरोध" मेलबॉक्स में इनबॉक्स का संदर्भ कैसे प्राप्त करूं?

Answer 1

कुछ इस तरह चाल

Dim objNS As Outlook.NameSpace 
Dim objFolder As Outlook.MAPIFolder 
Set objNS = GetNamespace("MAPI") 
Set objFolder = objNS.Folders("Procurement, Request") 
Set objFolder = objFolder.Folders("Inbox") 

यह लिंक handling different Inboxes के लिए कुछ उपयोगी कोड है क्या करना चाहिए - यह ब्याज

Answer 2

उपयोग Namespace.GetSharedDefaultFolder का हो सकता है। यह तब भी काम करेगा जब मेलबॉक्स वर्तमान प्रोफ़ाइल में खोला नहीं गया है। तुम अब भी और निश्चित रूप से प्रश्न में फ़ोल्डर एक्सेस मेलबॉक्स को खोलने के लिए सही है की जरूरत है:

Set vNamespace = Application.GetNamespace("MAPI") 
set vRecipient = vNamespace.CreateRecipient("Procurement, Request") 
if vRecipient.Resolve Then 
    set vFolder = vNamespace.GetSharedDefaultFolder(vRecipient, olFolderInbox) 
End If 

आप (अपने सभी बंद फ़ोल्डरों के साथ) अन्य उपयोगकर्ता के मेलबॉक्स को खोलने के लिए की जरूरत है, तो आप Redemption और उपयोग कर सकते हैं अपने RDOSession .GetSharedMailbox विधि:

set Session = CreateObject("Redemption.RDOSession") 
Session.MAPIOBJECT = Application.Session.MAPIOBJECT 
set Store = Session.GetSharedMailbox("Procurement, Request") 
set vFolder = Store.GetDefaultFolder(olFolderInbox) 
MsgBox "The address of the mailbox owner: " & Store.Owner.Address 

Answer 3

Dim olNS As NameSpace 
Dim InputFolder As Outlook.MAPIFolder 
Set olNS = Outlook.Application.GetNamespace("MAPI") 

' Get reference to folder in users Mailbox for Input 
Set InputFolder = olNS.Folders("Procurement, Request").Folders("Inbox") 

' all the emails in the shared inbox are represented by: 
InputFolder.Items