Excel VBA-通过excel为outlook约会选择的日期

Sub ScheduleOutlookAppointment()
    Dim olApp As Object
    Dim olApt As Object
    Dim selectedDate As Date
    
    ' 创建Outlook应用程序对象
    Set olApp = CreateObject("Outlook.Application")
    
    ' 创建Outlook约会对象
    Set olApt = olApp.CreateItem(1) ' 1表示约会项
    
    ' 显示日期选择器并获取选择的日期
    selectedDate = Application.InputBox("请选择约会日期:", Type:=1)
    
    ' 设置约会的开始时间和结束时间
    olApt.Start = selectedDate & " 09:00:00"
    olApt.End = selectedDate & " 10:00:00"
    
    ' 设置约会的主题和地点
    olApt.Subject = "约会"
    olApt.Location = "某个地点"
    
    ' 保存并发送约会
    olApt.Save
    olApt.Send
    
    ' 释放对象
    Set olApt = Nothing
    Set olApp = Nothing
    
    MsgBox "已成功创建并发送约会!"
End Sub