Belirli bir takvime randevu oluşturma. VBA görünümü

Question

Başka bir takvime randevu oluşturmak için nasıl makro oluştururum? Kullanmakta olduğum geçerli makro, varsayılan takvimime oluşturur. Şimdiden teşekkürler.

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 

Answer 1

Çağrı Application.Session.CreateRecipient, daha sonra Application.Session.GetSharedDefaultFolder geri Recipient nesnesi iletir. Yeni bir randevu eklemek için MAPIFolder.Items.Add numaralı telefonu arayabilirsiniz.