How To Edit Subject Line In Outlook 365 Email' title='How To Edit Subject Line In Outlook 365 Email' />Add a file number or keyword to the subject line of messages. A visitor to our forums posted the following question in Batch adding text to email subject lines in Outlook at Outlook Forums We put file numbers in all communications with our clients. However, we frequently begin dialogues with potential clients before opening a file for them. Then, once they become a client and we open a file, we have to go back and manually change each un numbered email subject line. Its normally pretty easy to come up with a search term that finds all the emails that need changing, but its time consuming to change each one manually. Is there a way to batch insert a string that looks like 1. Sure, you can do using VBA and a search folder by modifying the code sample at Copy is prefixed to the Subject of a Meeting. If there are just a few subject lines to edit, you can use in cell editing to quickly paste the code into the subject. Using VBA to change the subject line. Copy and paste the following code into the VB Editor. Create a search folder to find all messages where the subject needs tagged then run the macro while viewing the search folder results. I tested this code in Outlook 2. It works in Outlook 2. The first method will guide you to customize a quick step that can create a new email message and automatically fill out its subject line with specified text. Rules. Rules, and more specific Move to folder rules, is the most easiest one to get yourself some duplicates. This is because for each email received, Outlook. How To Edit Subject Line In Outlook 365 Email' title='How To Edit Subject Line In Outlook 365 Email' />Sub Add. File. Number. Dim myol. App As Outlook. Application. Dim a. Item As Object. Set myol. App Create. ObjectOutlook. Application. Set mail myol. Im using Outlook 2016 and cannot change the subject line of an incoming email. Other forums have said to expand the header and double click the subject line to edit. How to add a file number to the subject line of an Outlook message using VBA. Sample macro included. Editing received emails in Outlook might seem like an odd thing to do, but it actually can be useful. For example, you can add descriptive keywords to make. App. Active. Explorer. Current. Folder. Dim i. Items. Updated As Integer. Dim str. Temp As String. Dim str. Filenum As String. Filenum Input. BoxEnter the file number. Items. Updated 0. For Each a. Item In mail. Items. str. Temp str. Filenum a. Item. Subject. Item. Subject str. Temp. i. Items. Updated i. Items. Updated 1. Msg. Box i. Items. Updated of mail. Items. Count Messages Updated. Set myol. App Nothing. End Sub. When you run the macro, a dialog box will come up asking for the file number it accepts any text string. Type your file number or keywords in then press OK or Enter. When the macro is finished, a message will come up showing you how many items were changed. Note If you use this in Outlook 2. Conversation view, the subject used for the conversation view wont change. Disable conversation view to see the updated subject lines on individual messages. Also, if the search results include sent messages, those subject lines will be updated too. Run a Script Rule to add Sequential Numbers to subject. This sample is a Run a Script rule and will add a number to each message as they arrive. It saves the last used number to the registry for use in the next session. To use, create a rule, choosing the run a script action and select this macro as the script. Sub Subject. NumberingItem As Outlook. Mail. Item. Dim s. App. Name As String. Dim s. Section As String. Dim s. Key As String. Dim l. Reg. Value As Long. Dim l. Form. Value As Long. Dim i. Default As Integer. App. Name Outlook. Section Messages. Key Current Number. The default starting number. Default 1. 01 adjust as needed. Get stored registry value, if any. Reg. Value Get. Settings. App. Name, s. Section, s. Key, i. Default. If the result is 0, set to default value. If l. Reg. Value 0 Then l. Reg. Value i. Default. Increment and update invoice number. Save. Setting s. App. Name, s. Section, s. Key, l. Reg. Value 1. Item. Subject CStrl. Reg. Value item. Add a project number and the folder path to the subject. Jason wanted to add a project number and the path where the message is stored. To do this, I needed to add 2 12 lines to the original macro Dim and Set the folder variable, then add the folder name variable to the subject. This code adds the code and folder path to the subject of every message in the folder. Sub Add. File. Numberand. Folderpath. Dim myol. App As Outlook. Application. Dim a. Item As Object. Dim F As Outlook. MAPIFolder. Set myol. App Create. ObjectOutlook. Application. Set mail myol. App. Active. Explorer. Current. Folder. Dim i. Items. Updated As Integer. Dim str. Temp As String. Dim str. Filenum As String. Filenum Input. BoxEnter the file number. Items. Updated 0. For Each a. Item In mail. Items. Set F a. Item. Parent. str. Temp str. Filenum a. Item. Subject F. Folder. Path. a. Item. Subject str. Temp. Items. Updated i. Items. Updated 1. Msg. Box i. Items. Updated of mail. Items. Count Messages Updated. Set myol. App Nothing. Add the received date to the subject. This version of the macro shows how to add the received date to the subject, with the date in a specific format. Sub Add. Dateto. Subject. Dim myol. App As Outlook. Application. Dim a. Item As Mail. Item Object. Set myol. App Create. ObjectOutlook. Application. Set mail myol. App. Active. Explorer. Current. Folder. Dim i. Items. Updated As Integer. Dim str. Temp As String. Dim str. Date As String. Items. Updated 0. For Each a. Item In mail. Items. Debug. Print a. Item. Conversation. Topic. str. Date Formata. Item. Received. Time, mm dd yyyy. Temp a. Item. Subject str. Date. a. Item. Subject str. Temp. i. Items. Updated i. Items. Updated 1. Msg. Box i. Items. Updated of mail. Items. Baixar Software De Contabilidade Pessoal there. Count Messages Updated. Set myol. App Nothing. Change the subject of the selected or open message. Rachid wanted to know how to use this macro with only the selected item. To run the macro on the selected message in the message list, replace the Set mail. Set a. Item myol. App. Active. Explorer. Selection. Item1. Youll also need to remove the code that loops through all messages and the Msg. Box line. See code below. If you want the macro to work on selected or open messages, use the Get. Current. Item Function from work with open or selected items and the code below. This code sample adds the ability to cancel the entry. To do this I changed Dim str. Filenum As String to Dim str. Filenum As Variant then added these the following lines. The first lines picks up the Cancel button, the second checks the value and if empty, exits. If str. Filenum False Then Exit Sub. If str. Filenum Then Exit Sub. Sub Add. File. Number. Dim a. Item As Object. Dont forget the function. Set a. Item Get. Current. Item. Dim i. Items. Updated As Integer. Dim str. Temp As String. Dim str. Filenum As Variant. Filenum Input. BoxEnter the file number. Empty value or cancel button. If str. Filenum False Then Exit Sub. If str. Filenum Then Exit Sub. Temp str. Filenum a. Item. Subject. a. Item. Subject str. Temp. Using In cell Editing. If you dont need to change a large number of items, it may be faster to use in cell editing. Create a custom view or edit your existing view to enable in cell editing then click in the subject field and paste the code. The steps are at Change the Subject of an Incoming Message and for Outlook 2. Editing the Subject line in Outlook 2. How to use File Number Macros. This macro shows how to use the first macro and the run a script macro. After testing the macro, create a button on the ribbon or Quick Access Toolbar QAT to make it easy to use. Undo the Changed Subject. If you screwed up the macro, you cant hit Undo to fix it, but you can use another macro to restore the original subject. If the changes are at the beginning or end of the macro and are equal length you can use the Right or Left function to trim the subject.