请求协助编写Outlook宏：将约会转为会议请求

问题背景 #

双击Outlook日历空白时间时，默认打开的是约会窗口而非会议请求，需要通过宏自动将新建的约会转为会议请求。

完整宏实现步骤 #

1. 打开Outlook VBA编辑器
   按Alt + F11快速打开；或者通过「文件」→「选项」→「自定义功能区」，勾选「开发工具」，再点击「开发工具」选项卡中的「Visual Basic」按钮。

2. 创建类模块
   在左侧「项目」窗格中，右键点击你的Outlook项目（通常显示为Project1或Outlook 对象），选择「插入」→「类模块」。在右侧「属性」窗格中，将类模块名称改为clsInspectorEvents。

3. 添加事件处理代码到类模块
   将以下代码粘贴到clsInspectorEvents模块中：

   Private WithEvents m_Inspector As Outlook.Inspectors
   
   Private Sub Class_Initialize()
       Set m_Inspector = Outlook.Application.Inspectors
   End Sub
   
   Private Sub m_Inspector_NewInspector(ByVal Inspector As Outlook.Inspector)
       ' 仅处理新建的未保存约会项
       If TypeName(Inspector.CurrentItem) = "AppointmentItem" And Inspector.CurrentItem.EntryID = "" Then
           ' 将约会标记为会议请求
           Inspector.CurrentItem.MeetingStatus = olMeeting
           ' 可选：自动唤起收件人输入界面，方便添加参会者
           Inspector.CurrentItem.Display
       End If
   End Sub
   

4. 初始化事件监听
   打开左侧「项目」窗格中的ThisOutlookSession模块，粘贴以下代码：

   Private objInspectorEvents As clsInspectorEvents
   
   Private Sub Application_Startup()
       Set objInspectorEvents = New clsInspectorEvents
   End Sub
   

5. 启用宏并测试

   • 保存VBA项目，关闭Outlook后重新启动。
   • 调整Outlook宏安全设置：「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」，选择「启用所有宏」（测试场景）或「启用签署的宏」（正式使用建议签署宏文件）。
   • 双击日历空白时间，此时应该直接打开会议请求窗口而非普通约会窗口。

原代码问题说明 #

你提供的原代码中，m_Inspector.CurrentItem.CreationTime > Now的判断逻辑错误——约会的创建时间永远不会晚于当前时间，因此该条件永远无法触发，代码不会执行。改用EntryID = ""可以准确识别出尚未保存的新建约会项，确保只有新创建的约会才会被转为会议请求。

内容的提问来源于stack exchange，提问作者Fubar