在MS Access中使用VBA将约会添加到某人的共享Outlook日历

Sub AddAppointmentToSharedCalendar()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olRecipient As Outlook.Recipient
    Dim olFolder As Outlook.Folder
    Dim olAppointment As Outlook.AppointmentItem
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 添加共享日历的收件人
    Set olRecipient = olNamespace.CreateRecipient("共享日历的收件人邮箱地址")
    
    ' 获取共享日历的文件夹
    Set olFolder = olNamespace.GetSharedDefaultFolder(olRecipient, olFolderCalendar)
    
    ' 创建约会项
    Set olAppointment = olFolder.Items.Add(olAppointmentItem)
    
    ' 设置约会项的属性
    With olAppointment
        .Subject = "约会主题"
        .Start = #yyyy/mm/dd hh:mm#
        .End = #yyyy/mm/dd hh:mm#
        .Location = "约会地点"
        .Body = "约会详情"
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 15
        .BusyStatus = olBusy
    End With
    
    ' 保存约会项
    olAppointment.Save
    
    ' 释放对象
    Set olAppointment = Nothing
    Set olFolder = Nothing
    Set olRecipient = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub

Private Sub btnAddAppointment_Click()
    AddAppointmentToSharedCalendar
End Sub

' 添加共享日历的收件人
Set olRecipient = olNamespace.CreateRecipient("共享日历的收件人邮箱地址")

' 获取共享日历的文件夹
Set olFolder = olNamespace.GetSharedDefaultFolder(olRecipient, olFolderCalendar)

' 获取默认日历的文件夹
Set olFolder = olNamespace.GetDefaultFolder(olFolderCalendar)