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

Question

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

谢谢

Answer 1

H，

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文章介绍了如何在文件夹中创建约会。