使用VBA创建Outlook会议

Sub CreateOutlookMeeting()
    Dim olApp As Object
    Dim olMeeting As Object
    
    ' 创建Outlook应用程序对象
    Set olApp = CreateObject("Outlook.Application")
    
    ' 创建会议对象
    Set olMeeting = olApp.CreateItem(1) ' 1表示创建会议
    
    ' 设置会议的属性
    With olMeeting
        .Subject = "会议主题" ' 设置会议主题
        .Location = "会议地点" ' 设置会议地点
        .Start = Date + TimeSerial(9, 0, 0) ' 设置会议开始时间
        .Duration = 60 ' 设置会议持续时间（分钟）
        .Recipients.Add "参与者1的邮箱地址" ' 添加参与者1
        .Recipients.Add "参与者2的邮箱地址" ' 添加参与者2
        ' 添加更多参与者...
        .Body = "会议内容" ' 设置会议内容
        .ReminderSet = True ' 设置是否提醒
        .ReminderMinutesBeforeStart = 15 ' 设置提前提醒时间（分钟）
        .Save ' 保存会议
    End With
    
    ' 发送会议邀请
    olMeeting.Send
    
    ' 释放对象
    Set olMeeting = Nothing
    Set olApp = Nothing
End Sub