Fix Email Subject Line Text Case (Public)

PHOTO EMBED

Fri Aug 06 2021 06:58:51 GMT+0000 (Coordinated Universal Time)

Saved by @cnewnham #vba

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 
content_copyCOPY