Rename Subject Line with Email Content

[Not Mr. Robot]

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

 

[Diane Poremsky]

Sure - you would need to use either some combination of instr, left, right, mid, len functions or use regex - Use RegEx to extract text from an Outlook email message - once you get the values in a string, you can add them to the subject.

 

[Not Mr. Robot]

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:

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

 

[Diane Poremsky]

>> 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