在MS Access中使用VBA向其他人共享约会日历添加约会

如何解决在MS Access中使用VBA向其他人共享约会日历添加约会

我很难在他们与我共享的同事日历中添加约会。问题似乎出在日历参考中。当我尝试将约会添加到名为“学习计划”的单独共享日历中时，约会将继续添加到其主要默认日历中。我正在运行Office 365。

    Dim olApp                 As outlook.application
    Dim olappt                As Outlook.AppointmentItem
    Dim bAppOpened            As Boolean
    Dim myNamespace           As Outlook.NameSpace
    Dim objRecip              As Outlook.Recipient
    Dim strName               As String
    Dim myFolder              As Outlook.Folder
 

    Const olAppointmentItem = 1
            
            On Error Resume Next
            Set olApp = Getobject(,"outlook.application")
            If Err.Number <> 0 Then
            Err.Clear
            Set olApp = CreateObject("outlook.application")
            bAppOpened = False  ' Outlook was not already running,started it
            Else
                bAppOpened = True   ' Outlook was already running
            End If
           ' On Error GoTo Error_Handler
            
            ' Get Study Schedule Folder Location
            Set myNamespace = olApp.GetNamespace("MAPI")
            Set objRecip = myNamespace.CreateRecipient("John Doe")
                objRecip.Resolve
    ' I believe the problem is in the two lines of code below as I try to reference non default folder (shared from john doe)            
                Set myFolder = myNamespace.GetSharedDefaultFolder(objRecip,olFolderCalendar)
                Set myFolder = myFolder.Folders("Study Schedule") 
                myFolder.display
                Set olappt = myFolder.Items.Add
                'Set olappt = myNewFolder.Items.Add
                With olappt
                            .AllDayEvent = True
                            .Start = ScheduledDate
                            .Subject = StudyName
                            .Body = "Study has been scheduled." & vbCr & _
                                vbCr & _
                                "Calendar Assigned: " & myFolder & vbCr & _
                                "Schedule Entry ID: " & ScheduleEntryID & vbCr & _
                                "Study Name: " & StudyName & vbCr & _
                                "Scheduled Date: " & ScheduledDate & vbCr & _
                                vbCr & _
                                "Principle Investigator: " & PrincipleInvestigator & vbCr & _
                                "Order Placed By: " & OrderPlacedBy & vbCr & _
                                vbCr & _
                                "Species: " & Spec

ies & vbCr & _
                            "Strain: " & Strain & vbCr & _
                            "Sex " & Sex & vbCr & _
                            "Age: " & Age & vbCr & _
                            "Weight: " & Weight & " Kg" & vbCr & _
                            "Quantity : " & Quantity & vbCr & _
                            vbCr & _
                            "Study information: " & StudyDescription & vbCr & _
                            vbCr & _
                            "This Event was auto generated from the Scheduling Assistant and In-Vivo Database."
                        .Location = ""
                        .display
               '         .Save
                   '    .Send
            End With

    ... Rest of Code

非常感谢您的帮助！

解决方法

共享日历很可能与默认日历处于同一级别。

' For a folder at the same level as the default calendar
'  navigate up then back down
Set myFolder = myNamespace.GetSharedDefaultFolder(objRecip,olFolderCalendar)
Set myFolder = myFolder.Parent.Folders("Study Schedule")

,

我找到了解决方法。我最终使用的代码发布在下面。谢谢大家的迅速反应！我非常感谢您的帮助。

let mylist = document.getElementById("animals");

for (let i = 0; i < mylist.children.length; i++) {
    mylist.children[i].addEventListener("click",function () {
        let content = this.innerHTML;
        let index = i + 1;
        document.getElementById("output").innerHTML = content + " " + index;     
    });
}