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

如何：創建新的 Outlook 約會項目文章描述了如何在文件夾中創建約會。