Rename Subject Line with Email Content

Status
Not open for further replies.

Not Mr. Robot

Member
Outlook version
Outlook 2013 64 bit
Email Account
Exchange Server
Hello, I am farily new to VBA and I was wondering if it is possible to rename subject lines in Outlook with certain words and numbers derived from the body of an email and/or an attachement (PDF or Word). I created script that renames the subject lines based on domains/original subject lines, but I really need more information from within the emails without having to open each one up.

Thanks!
John
 
Thanks, Diane! I've been playing around with one of the examples, and it is close to what I am looking for. However, I am running into a couple of hiccups:
  • The original subject line does not get deleted
  • The script won't run on all items in my box when I ask it to do so (it seems to work on one email and then just stops)
Here is what I have so far:

Code:
Sub VendorSubjectRegExTest(item As Outlook.MailItem)

    Dim olMail As Outlook.MailItem
    Dim Reg1 As RegExp
    Dim M1 As MatchCollection
    Dim M As Match
    Dim strSubject As String
    Dim testSubject As String
       
    Set olMail = Application.ActiveExplorer().Selection(1)
   
    Set Reg1 = New RegExp
  
For i = 1 To 3

With Reg1
    Select Case i
    Case 1
        .Pattern = "(SELLER:\s([\w-\s]*)\s*)\n [^ECORP]"
        .Global = False
      
    Case 2
        .Pattern = "(BUYER:\s([\w-\s]*)\s*)\n [^ECORP]"
        .Global = False
     
    Case 3
        .Pattern = "(PRODUCT:\s([\w-\s]*)\s*)\n"
        .Global = False
                  
    End Select
  
End With
  
        If Reg1.Test(olMail.Body) Then
   
        Set M1 = Reg1.Execute(olMail.Body)
        For Each M In M1
            Debug.Print M.SubMatches(1)
            strSubject = M.SubMatches(1)
          
         strSubject = Replace(strSubject, Chr(13), "")
         testSubject = testSubject & " " & Trim(strSubject) & " Vendor"
         Debug.Print i & testSubject
       
         Next
    End If
        
Next i

Debug.Print olMail.Subject & testSubject
olMail.Subject = olMail.Subject & testSubject
olMail.Save

Set Reg1 = Nothing

End Sub
 
>> Set olMail = Application.ActiveExplorer().Selection(1)
this tells it to run on the selected message. this is supposed to be a rule, so you'll need to remove that line and change all instances of olMail to Item

>> olMail.Subject = olMail.Subject & testSubject
this sets the subject to be the subject + the text from the regex pattern

if you want just the regex pattern result, use
olMail.Subject = testSubject
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
C How to rename subject line and forward the email Outlook VBA and Custom Forms 2
C Save outlook attachments and rename/append files with identifier from subject line Outlook VBA and Custom Forms 3
D VBA script to auto download attachments and rename file according to subject line Outlook VBA and Custom Forms 23
P Yahoo/IMAP folder rename by Outlook desktop 365 Using Outlook 0
M Outlook 365 Rename Outlook Priority Using Outlook 3
G Save and Rename Outlook Email Attachments Outlook VBA and Custom Forms 0
W Save and rename outlook email attachments to include domain name & date received Outlook VBA and Custom Forms 4
W Save Outlook attachment in network folder and rename to current date and time Outlook VBA and Custom Forms 18
D Autosave Attachment and Rename Outlook VBA and Custom Forms 1
F Rename Contacts Greyed Out Using Outlook 0
K IMAP Server Wants to alert you to the following: cannpt rename system folder Using Outlook 1
Diane Poremsky Rename Email Accounts and Data Files in the Folder List Using Outlook 0
S VBA code to rename a task (flagged message) Outlook VBA and Custom Forms 1
B Your IMAP server wants to alert you to the following: cannot rename system folders Using Outlook 8
L IMAP server wants to alert you to the following: cannot rename sytem folders Using Outlook 14
T Rename Outlook 2010 .PST Files Using Outlook 14
B IMAP server wants to alert you to the following cannot rename system folders Using Outlook 3
M Outlook Today. How to rename IMAP inbox accounts to something else than inbox? Using Outlook 4
A Rename resource Exchange 2003 Using Outlook 2
O Run Rule to Rename Email and Add to Tasks Using Outlook 4
M Rename Database BCM (Business Contact Manager) 1
J how do i rename the default fields in MS Business Contact manager BCM (Business Contact Manager) 1
H using VBA to edit subject line Outlook VBA and Custom Forms 0
F Auto changing email subject line in bulk Using Outlook 2
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
J Outlook 365 Forward Email Subject to my inbox when new email arrive in shared inbox Using Outlook 0
sjmo2 Change subject for new e-mails only. Outlook VBA and Custom Forms 2
C Outlook 365 Copy/Save Emails in Folder Outside Outlook to Show Date Sender Recipient Subject in Header Using Outlook 0
D Prompt to prefix subject line whenever sending an email Outlook VBA and Custom Forms 3
ill13 Prepend the user's computer name to the subject. Outlook VBA and Custom Forms 1
D Auto Remove [EXTERNAL] from subject - Issue with Macro Using Outlook 21
2 How to get rid of the "Emailing:" prefix in the subject line Using Outlook 1
S Outlook Macro for [Date][Subject] Using Outlook 1
O How to find and replace a word in Outlook-Agenda-Subject and Message? Using Outlook 0
D ISOmacro to extract active mail senders name and email, CC, Subject line, and filename of attachments and import them into premade excel spread sheet Outlook VBA and Custom Forms 2
C Outlook 365 Subject Prefixes? Outlook VBA and Custom Forms 1
A Macro to file emails into subfolder based on subject line Outlook VBA and Custom Forms 1
N Save selected messages VBA does not save replies and/or messages that contain : in subject Outlook VBA and Custom Forms 1
V vBA for searching a cell's contents in Outlook and retrieving the subject line Outlook VBA and Custom Forms 1
C Macro to extract sender name & subject line of incoming emails to single txt file Outlook VBA and Custom Forms 3
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
R Disable conversation thread from replying of recipients in the same subject. Please help Using Outlook 0
M Outlook 2013 Script Assistance - Save Opened Link with Subject Added Outlook VBA and Custom Forms 1
B Add Prefix text to Subject Line Using Outlook 1
P [SOLVED] Auto remove [EXTERNAL] from subject Using Outlook 16
M Outlook 2013 Replace Subject with Conversation (a "hidden" value). Outlook VBA and Custom Forms 0
M Convert Subject Line to Internet Header version of Subject Outlook VBA and Custom Forms 10
M Adding Subject to this Link-Saving VBA Outlook VBA and Custom Forms 5
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8

Similar threads

Back
Top