We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub FixSubjectLineV2() Const MACRONAME = "Fix Subject Line" Dim olkMsg As Outlook.MailItem, _ olkItems As Outlook.Items, _ strSubject As String, _ strNewSub As String strSubject = InputBox("What word/phrase do you want me to search for?", MACRONAME) strNewSub = InputBox("What text do you want to replace the word/phrase with?", MACRONAME) If strSubject <> "" Then Set olkItems = Application.ActiveExplorer.CurrentFolder.Items For Each olkMsg In olkItems If InStr(1, olkMsg.Subject, strSubject) Then olkMsg.Subject = Replace(olkMsg.Subject, strSubject, strNewSub) olkMsg.Save End If Next End If Set olkItems = Nothing Set olkMsg = Nothing MsgBox "All done!", vbInformation + vbOKOnly, MACRONAME End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.