News title in news mailing list

I previously requested, on numerous occasion, that the news title be included in the Subject line of the e-mails that go out to us who are subscribed to news updates.

Since mmorpg.com still refuses to do this, I thought I'd share a workaround Outlook macro. Just use Tools -> Macro -> Visual Basic Editor to paste this into a new Module, then create a new custom rule in the Rules Wizard so that all e-mails that come from @mmorpg.com uses "a script", and point the script to the macro function.

Sub RestoreTitle(msg As MailItem)

    Dim body

    body = msg.body

    Dim bodyLines

    bodyLines = Split(body, vbLf)

    Dim newBody As String

    For Each Line In bodyLines

        If InStr(Line, "Article Title: ") = 1 Then

            msg.Subject = Line

            msg.Save

            Exit Sub

        End If

    Next

End Sub