从 Outlook 导入约会

Question

I have a Shared Outlook Appointment calendar that's linked to a colleague's account. I am trying to export the appointments from that calendar to Excel.

I found lots of pages of VBA code showing how to export from their main calendar by using their email address in the code however this Calendar has been set up as an appointment calendar only and is separate from the user's main calendar. When I reference her email address, it pulls from her main calendar.

The Appointment Calendar was shared by email and I needed to accept to add it to my own calendar lists.

I guess I need to name this specific calendar in the code?

Answer 1

When you got a calendar folder you can try to get the parent folder and then iterate over all subfolders along with a shared calendar already retrieved. Hope there you will be able to find what you need.

To get a shared calendar folder you need to use the GetSharedDefaultFolder method of the Namespace class which returns a Folder object that represents the specified default folder for the specified user. This method is used in a delegation scenario, where one user has delegated access to another user for one or more of their default folders (for example, their shared Calendar folder). For example:

Sub ResolveName()  
 Dim myNamespace As Outlook.NameSpace  
 Dim myRecipient As Outlook.Recipient  
 Dim CalendarFolder As Outlook.Folder 
 Set myNamespace = Application.GetNamespace("MAPI")  
 Set myRecipient = myNamespace.CreateRecipient("Eugene Astafiev")  
 myRecipient.Resolve  
 If myRecipient.Resolved Then  
 Call ShowCalendar(myNamespace, myRecipient)  
 End If  
End Sub 
 
Sub ShowCalendar(myNamespace, myRecipient)  
 Dim CalendarFolder As Outlook.Folder 
 Set CalendarFolder = _  
 myNamespace.GetSharedDefaultFolder _  
 (myRecipient, olFolderCalendar)  
 CalendarFolder.Display  
End Sub

So, after getting the default calendar folder you may ask for the parent folder (see the Parent property). Then you can use the Folders property which returns the Folders collection that represents all the folders contained in the specified Folder. Iterating over all subfolders you mat find the required one.