EXCEl VBA 访问其他人的outlook 日历的内容

liudi_911

各位大神

下面的程序是用来访问查找自己的outlook 日历中的标题为"123"的会议邀请
现在的问题是需要访问查找其他人的outlook日历中的标题为"123"的会议邀请该如何编写 ?

Public Sub update()
    Dim ns As Namespace
    Dim Inbox As MAPIFolder
    Dim Item As Variant 'MailItem
    Dim sSubject As String
    Dim apt As Variant 'AppointmentItem
    Dim rct As Recipient

    Set ns = GetNamespace("MAPI")
    Set Inbox = ns.GetDefaultFolder(olFolderInbox)
    For Each apt In ns.GetDefaultFolder(olFolderCalendar).Items
    If apt.Class = olAppointment Then
    If apt.Subject = "123" Then
    If apt.Start = t Then
   msgbox(123) '执行相关操作
    'apt.Send
    apt.Save
    End If
    End If
    End If
    Next
End Sub

liudi_911

十分感谢........