如何获取Outlook选中的约会项并通过VBA修改其类别为Green Category

修正后的可直接运行代码如下：

Sub SetToGreenCategory()
    Dim objApp As Outlook.Application
    Dim objSelection As Outlook.Selection
    Dim citem As Object
    
    Set objApp = Application
    Set objSelection = objApp.ActiveExplorer.Selection
    
    ' 遍历所有选中项，仅处理约会类型条目
    For Each citem In objSelection
        If TypeOf citem Is Outlook.AppointmentItem Then
            citem.Categories = "Green Category"
            ' 修改属性后必须手动保存才会生效
            citem.Save
        End If
    Next
    
    ' 清理对象避免内存残留
    Set citem = Nothing
    Set objSelection = Nothing
    Set objApp = Nothing
End Sub

核心改动说明 #

• 原代码没有获取当前选中项的逻辑，直接调用未赋值的citem会触发运行时错误，修正后通过ActiveExplorer.Selection获取当前窗口中用户选中的所有条目
• 新增类型校验逻辑，避免选中邮件、任务等非约会条目时代码崩溃
• 支持批量修改，同时选中多个约会可以一次性全部更新为绿色类别

代码导入Outlook VBA编辑器后，在自定义功能区把该宏绑定到新增的按钮上即可正常使用。

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