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

时间:2016-08-12 14:28:37

标签: vba outlook

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

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

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

1 个答案:

答案 0 :(得分: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