2016-04-11 91 views
0

如何創建一個宏以創建約會到另一個日曆。我正在使用的當前宏創建到我的默認日曆。提前致謝。創建約會到特定日曆。 VBA展望

Sub test() 

Dim myItem As Object 
Set myItem = Application.CreateItem(olAppointmentItem) 
myItem.MeetingStatus = olMeeting 
myItem.Subject = "Strategy Meeting" 
myItem.Location = "Conf Rm All Stars" 
myItem.Start = #4/11/2016 1:30:00 PM# 
myItem.Duration = 10 
myItem.Display 

End Sub 
+0

您的意思是在您的個人資料中已打開的其他商店中?或者在代理Exchange郵箱中? –

+0

與多個用戶共享的日曆。 – drdrdr

+0

在Exchange Server上? –

回答

1

呼叫Application.Session.CreateRecipient,則返回Recipient對象傳遞給Application.Session.GetSharedDefaultFolder。然後您可以致電MAPIFolder.Items.Add添加新的約會。