outlook vba，将主题行中的文本转换为正确的大小写

Sub ConvertSubjectCase()
    Dim objMail As Outlook.MailItem
    Dim strSubject As String
    Dim strConvertedSubject As String
    Dim i As Integer
    
    ' 获取当前选中的邮件
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    
    ' 获取主题行文本
    strSubject = objMail.Subject
    
    ' 将文本转换为小写并分割为单词
    Dim arrWords() As String
    arrWords = Split(LCase(strSubject), " ")
    
    ' 将每个单词的首字母大写
    For i = LBound(arrWords) To UBound(arrWords)
        arrWords(i) = UCase(Left(arrWords(i), 1)) & Mid(arrWords(i), 2)
    Next i
    
    ' 重新组合单词并更新主题行
    strConvertedSubject = Join(arrWords, " ")
    objMail.Subject = strConvertedSubject
    
    ' 保存更改
    objMail.Save
    
    ' 释放对象
    Set objMail = Nothing
End Sub