用vba 新建outlook约会时如何保存到指定日历？

Excel_学无止境

目前用的是这个方法
Dim myItem As AppointmentItem
startYear = DTPicker2
endYear = DTPicker1
jg = DateDiff("yyyy", startYear, endYear) '取年间隔
    startDate = DateAdd("yyyy", I, startYear) '提醒的开始时间每次+1
    Set myItem = Application.CreateItem(olAppointmentItem)
    myItem.Subject = TextBox5.Text  '显示标题
    myItem.AllDayEvent = True  '全天事件
    myItem.Start = startDate  '开始时间
    myItem.End = DateAdd("d", 1, startDate) '结束时间
    myItem.ReminderSet = True  '提醒
    myItem.ReminderMinutesBeforeStart = 60
    myItem.Save         '这个只能保存到默认的名为「日历」的下面

我还有一个日历名为「纪念日」我想把建立的约会保存在这里。