Outlook VBA无法修改Teams会议邀请主题，如何修改关联日历约会主题

你现有脚本仅适配普通MailItem类型邮件，Teams会议邀请属于MeetingItem类型，无法直接修改其邮件主题，需要关联到对应日历约会对象后再操作。

完整修改后代码 #

Sub RenameMails(MyItem As Object)
    Dim strID As String
    Dim objMail As Outlook.MailItem
    Dim objMeeting As Outlook.MeetingItem
    Dim objAppt As Outlook.AppointmentItem
    Dim newSubject As String

    strID = MyItem.EntryID
    ' 区分普通邮件和会议邀请
    If TypeOf MyItem Is MailItem Then
        Set objMail = Application.Session.GetItemFromID(strID)
        If Left(objMail.Subject, 4) = "FW: " Then
            newSubject = "Test: " & Right(objMail.Subject, Len(objMail.Subject) - 4)
            objMail.Subject = newSubject
            objMail.Save
        End If
        Set objMail = Nothing
    ElseIf TypeOf MyItem Is MeetingItem Then
        Set objMeeting = Application.Session.GetItemFromID(strID)
        If Left(objMeeting.Subject, 4) = "FW: " Then
            newSubject = "Test: " & Right(objMeeting.Subject, Len(objMeeting.Subject) - 4)
            ' 获取关联的日历约会
            Set objAppt = objMeeting.GetAssociatedAppointment(True)
            If Not objAppt Is Nothing Then
                ' 修改约会主题
                objAppt.Subject = newSubject
                objAppt.Save
                ' 可选：修改会议邀请邮件本身的展示主题（部分Outlook版本生效）
                objMeeting.Subject = newSubject
                objMeeting.Save
            End If
            Set objAppt = Nothing
        End If
        Set objMeeting = Nothing
    End If
End Sub

关键修改说明 #

• 入参改为通用Object类型，兼容普通邮件和会议邀请两种类型
• 增加类型判断分支，针对MeetingItem类型调用GetAssociatedAppointment()方法获取关联日历约会
• 优先修改约会对象的主题，修改后仅本地日历生效，不会同步影响其他参会人的会议信息

注意事项 #

• 配置规则触发条件时，依然可以和原有规则保持一致，无需额外调整触发范围
• 如果脚本执行无效果，请检查你的Outlook宏安全设置是否允许运行VBA脚本，同时确认日历有本地编辑权限
• 修改本地日历约会主题不会同步给其他参会人，仅在你本地的Outlook和日历中生效

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