Outlook, rename subject of selected emails, VBA

Remove Word in Subject line

Please Login or Register  to view this content.

You can use VBA code to rename the subject of selected emails in Outlook. Here's an example of how to do it:

Open Outlook and press Alt + F11 to open the VBA editor.

In the VBA editor, right-click on your Outlook VBAProject and choose Insert > Module.

Copy and paste the following code into the module:

Sub RenameSelectedEmails()
Dim objItem As Object
Dim objMail As MailItem
Dim strNewSubject As String

For Each objItem In Application.ActiveExplorer.Selection
If TypeOf objItem Is MailItem Then
Set objMail = objItem
strNewSubject = InputBox("Enter a new subject for the email", "Rename Email Subject", objMail.Subject)
objMail.Subject = strNewSubject
objMail.Save
End If
Next objItem

Set objItem = Nothing
Set objMail = Nothing
End Sub

Save the module and return to Outlook.

Select one or more emails that you want to rename the subject of.

Click the Developer tab in the ribbon (if you don't see the Developer tab, go to File > Options > Customize Ribbon and check the Developer box).

Click the Macros button in the ribbon.

Select the RenameSelectedEmails macro and click Run.

Enter the new subject for the email(s) in the InputBox and click OK.

The macro will loop through each selected email and prompt you to enter a new subject. Once you enter the new subject and click OK, the macro will update the subject and save the email.