OUTLOOK中用vba如何找到一特定的日历(AppointmentItem),Set myitem = objApp.Session.GetDefaultFolder(olFolderCalendar).Items.GetLast

Question

我用VBA代码生成OUTLOOK中的日历,但是我怎样得到一个具体的某一个,如果我自己规定一个唯一的ID对应每一个日历.该怎样定义?Set myitem = objApp.Session.GetDefaultFolder(olFolderCalendar).Items.GetLast 用这段代码可以得到最后一个ITEM,生成的代码如下:Dim objApp As Outlook.Application
    Dim ApptItem As Object
     
    Dim objResp As MeetingItem
         
    Set objApp = CreateObject("Outlook.Application")
    Set ApptItem = objApp.CreateItem(olAppointmentItem)  With ApptItem        .Categories = "12345"
        .ReminderSet = False
        .Start = Format$(Now, "yyyy/mm/dd hh:mm")
        .End = Format$(Now, "yyyy/mm/dd hh:mm")        '
        .Recipients.Add "[email protected]"
        .MeetingStatus = 1
        
        
        .Location = "啊"
        .Subject = "把"
        .Body = "正文" & vbCrLf & "wangy"
        .BusyStatus = olTentative
        .Save
        .Send      
        .Display
        Set ApptItem = Nothing
        Set objApp = Nothing
   End With然后我再用代码取得这一条,该怎样?(可以找一个属性,在生成每一条时给它赋一个值,但不知用哪一个属性好?)