Outlook VBA - Find & Replace Incoming Emails
- by user1912198
Good morning everyone at Stackoverflow,
I am trying to find a VBA script that finds and replaces a certain text in incoming e-mails.
So far i've been unable to find such a script that is working.
I found several scripts to find and replace stuff in the e-mail but these don't work as a rule on incoming e-mails, they only work on outgoing / creating e-mails.
Does anyone have such a script that they can share with me?
I would like to find & replace a certain text on every incoming e-mail.
I would really apreciate it!
Regards,
Kris
ps: I don't know how to program a whole VBA script, that's why I am asking here :)
Current Code:
Sub testing(MyMail As MailItem)
Dim mail As MailItem
Dim Inbox As Outlook.Folder
Set Inbox = Session.GetDefaultFolder(olFolderInbox)
For Each mail In Inbox.Items
'change subject
mail.Subject = "TESTING"
'replace body text
If mail.BodyFormat = olFormatHTML Then
mail.HTMLBody = Replace(mail.HTMLBody, "Test 123", "TESTING")
Else
mail.Body = Replace(mail.Body, "Test 123", "TESTING")
End If
Next mail
End Sub