Outlook vba -如何在转发、回复或重放给所有人之前在邮件主题上添加后缀？

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim originalSubject As String
    Dim newSubject As String
    Dim suffix As String
    
    ' 设置后缀
    suffix = " [转发]"
    
    ' 检查邮件类型为邮件回复或转发
    If Item.Class = olMail Then
        If Item.ReplyOrForward = olReply Or Item.ReplyOrForward = olForward Then
            originalSubject = Item.Subject
            newSubject = originalSubject & suffix
            Item.Subject = newSubject
        End If
    End If
End Sub