VBA，Outlook，看到'人們的日曆

Question

我打算以編程方式（使用VBA）訪問其他人與我共享的日曆。他們被列在我的展望「人民日曆」下。我已經在網上搜索了這一點，所有的建議都只是讓我感到困惑。我如何獲得所有共享給我的日曆的列表，然後從「人員日曆」中選擇一個特定的日曆？

Answer 1

檢出以下代碼返回的值。它按名稱搜索某人，與將收件人鍵入新電子郵件時的方式相同，然後抓取該人共享日曆並枚舉所有共享約會。

Dim _namespace As Outlook.NameSpace 
Dim _recipient As Outlook.Recipient 
Dim calendarFolder As Outlook.Folder 

Set _namespace = Application.GetNamespace("MAPI") 
Set _recipient = _namespace.CreateRecipient(name) 
_recipient.Resolve 

If _recipient.Resolved Then 
    Set calendarFolder = _namespace.GetSharedDefaultFolder(_recipient, olFolderCalendar) 
    'This would display the calendar on the screen: 
    'calendarFolder.Display 

    Dim oItems As Outlook.Items 
    Set oItems = calendarFolder.Items 
    'oItems is now a set of all appointments in that person's calendar 
    'Play on 
End if 

Answer 2

我覺得這個更接近了。它來自Sue Mosher出色的Microsoft Outlook 2007編程：爲超級用戶和管理員提供的Jumpstart。我希望她不介意。

Sub ShowOtherUserCalFolders() 
    Dim objOL As Outlook.Application 
    Dim objNS As Outlook.NameSpace 
    Dim objExpCal As Outlook.Explorer 
    Dim objNavMod As Outlook.CalendarModule 
    Dim objNavGroup As Outlook.NavigationGroup 
    Dim objNavFolder As Outlook.NavigationFolder 
    Dim objFolder As Outlook.Folder 
    Dim colExpl As Outlook.Explorers 
    Dim objExpl As Outlook.Explorer 
    Set objOL = Application 
    Set objNS = objOL.Session 
    Set colExpl = objOL.Explorers 
    Set objExpCal = _ 
     objNS.GetDefaultFolder(olFolderCalendar).GetExplorer 
    Set objNavMod = objExpCal.NavigationPane.Modules. _ 
     GetNavigationModule(olModuleCalendar) 
    Set objNavGroup = objNavMod.NavigationGroups. _ 
     GetDefaultNavigationGroup(olPeopleFoldersGroup) 
    For Each objNavFolder In objNavGroup.NavigationFolders 
     Set objFolder = objNavFolder.Folder 
     Set objExpl = _ 
      colExpl.Add(objFolder, olFolderDisplayNormal) 
     objExpl.Activate 
     objExpl.WindowState = olMaximized 
     objExpl.WindowState = olMinimized 
    Next 
    Set objOL = Nothing 
    Set objNS = Nothing 
    Set objNavMod = Nothing 
    Set objNavGroup = Nothing 
    Set objNavFolder = Nothing 
    Set objFolder = Nothing 
    Set colExpl = Nothing 
    Set objExpl = Nothing 
End Sub 

Answer 3

只是一個建議，以幫助那些可能試圖使用ShowOtherUserCalFolders（）代碼發佈在這裏的人。這段代碼將創建多個隱藏的Outlook實例，如果多次運行可能最終導致您的機器停滯不前。不要創建一個新的Outlook.application，你可以調用當前打開的一個（Outlook必須打開這個工作）。

要做到這一點與Dim objOL as Object和Set objOL = Application取代Dim objOL As Outlook.Application與Set myOlApp = GetObject(, "Outlook.Application")

另外，還要確保你關閉objExpCal Explorer作爲這也將創造前景的一個隱藏的實例，添加objExpCal.Close你的代碼的末尾。