excel vba在别人的日历中创建约会答案

【问题标题】：excel vba create appointment in someone elses calendarexcel vba在别人的日历中创建约会
【发布时间】：2015-01-19 13:27:52
【问题描述】：

当我打开 Outlook 时，我共享了大约 10 个日历。我有关于我想在 Excel 中进行的约会的所有信息，但我不知道如何将它分配给我共享的日历之一。如何参考别人的日历，并在其中安排约会？

谢谢

【问题讨论】：

浏览您的会话 (application.session) 并从所需会话中选择日历文件夹。

标签： excel vba outlook

【解决方案1】：

Namespace 类的GetSharedDefaultFolder 方法返回一个Folder 对象，该对象代表指定用户的指定默认文件夹。例如：

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("Dan Wilson")  
 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

How To: Create a new Outlook Appointment item 文章描述了如何在文件夹中创建约会。

【讨论】：