共有Outlook予定表から予定を削除する際の問題

Question

私は、SharePointサイトからスクリプトを取得しており、ラボの停止が発生するとOutlookで予定を作成しています。私は私が私の見通しにそれをテストする場合に動作deleteメソッドを持っているが、それは共有カレンダーをクリアしていない

Private Sub DeleteAllAppointments() 
    Dim olkApp As Object, _ 
     olkSession As Object, _ 
     olkCalendar As Object, _ 
     olkItem As Object, _ 
     intIndex As Integer 
    Set olkApp = CreateObject("Outlook.Application") 
    Set olkSession = olkApp.Session 
    olkSession.Logon 

    Set olkCalendar = olkSession.GetDefaultFolder(olFolderCalendar) 
    For intIndex = olkCalendar.Items.Count To 1 Step -1 
     Set olkItem = olkCalendar.Items.Item(intIndex) 
     olkItem.Delete 
    Next 
    Set olkItem = Nothing 
    Set olkCalendar = Nothing 
    olkSession.Logoff 
    Set olkSession = Nothing 
    Set olkApp = Nothing 
End Sub 

方法は

Set olkCalendar = olkSession.GetDefaultFolder(olFolderCalendar) 

をクラッシュ場所です誰もがいずれかを持っている場合、私は思っていましたこの問題を解決する方法これがフォルダパスの問題かどうか疑問に思っていますか？

Answer 1

olkSession.GetDefaultFolder(olFolderCalendar)は、デフォルトの予定表フォルダを取得します。あなたはどちらかsomeRecipientがolkSession.CreateRecipient)によって返されるolkSession.GetSharedDefaultFolder(someRecipient, olFolderCalendar)を（使用するか、Namespace.Storesコレクションから適切な店舗をオープン（）デリゲートのメールボックスがすでに存在していると仮定してStore.GetDefaultFolderを呼び出す必要があります。

は