我正在尝试将主题行中的文本转换为正确的大小写。我的代码如下,当我运行它时,主题行被删除。
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
我感谢你能给我的任何帮助。感谢。
答案 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