2015-04-02 47 views
1

我正在嘗試創建一個預約/會議通知模板以防止轉發,默認情況下不需要任何響應,並且從委派/共享日曆發送。我有腳本來改變所需的響應,並可以禁用動作中的轉發選項,但我無法弄清楚委託。我找到了getname腳本:共享日曆中的自定義Outlook會議通知表格

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("Larry M Garrett") 
    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 

這個工作在visual basic中,但它只能打開共享日曆。它不會將約會設置爲來自共享日曆。我收到代碼錯誤,如果我把它放到「查看代碼」部分並嘗試運行窗體。我覺得我錯過了我告訴它從委託日曆發送的步驟,但我找不到它。謝謝。

回答

0

看起來您需要使用共享日曆文件夾來創建預約項目。使用sharedCalendarFolder.Items.Add方法創建約會。

+0

它看起來像我需要在代碼中約會的細節使用items.add。我在Outlook中創建了一個表單,該表單有刪除響應請求的代碼,並禁用轉發。我需要經常使用此模板,但是需要使用與我共享的日曆,而不是從我自己的日曆中分享。我無法找到允許我將其設置爲來自共享日曆的代碼。 – AD1 2015-04-03 17:28:20