Question

我正在尝试将主题行中的文本转换为正确的大小写。我的代码如下，当我运行它时，主题行被删除。

Sub ProperCaseSubject()

    Dim myMessage As Outlook.MailItem
    Set myMessage = Outlook.ActiveInspector.CurrentItem

    Dim subject As String

    subject = myMessage.subject
    s = StrConv(subject, vbProperCase)

    myMessage.subject = s

End Sub

我感谢你能给我的任何帮助。感谢。

Answer 1

您的代码存在问题。你永远不会设置你的主题。您最初从subject抓取了myMessage.subject变量。此时subject的值为""。我想您正在寻找修改当前打开的邮件的主题。您可能希望通过this SO question了解如何从当前选择中读取主题。

稍后您转换为小写，返回""。您将返回的空字符串分配回myMessage.subject。

Sub ProperCaseSubject()

    Dim myMessage As Outlook.MailItem
    Set myMessage = Outlook.ActiveInspector.CurrentItem

    Dim subject As String

    subject = myMessage.subject ' Problematic line
                                ' You need to input this or capture this   
    s = StrConv(subject, vbProperCase)

    myMessage.subject = s

End Sub

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

1 个答案: