Ouklook email format

Hi,

I have this code that checks emails and removes a specific word, however if the word is found and removed the entire email loses it's format. Can anyone help and let me know how to retain the original message format.

Thanks

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim Insp As Inspector
Dim obj As Object
Set Insp = Application.ActiveInspector
Set obj = Insp.CurrentItem
obj.Body = Replace(obj.Body, "E_B_L_O_C_K", "")
End Sub

You pass item. There is no need to use obj. But that is not the problem.

Try this:

Code:

---

Private Sub Application_ItemSend(ByVal Item As Object, cancel As Boolean)
    Item.HTMLBody = Replace(Item.HTMLBody, "E_B_L_O_C_K", "")
End Sub

---

Quote:

---

Originally Posted by skatonni

You pass item. There is no need to use obj. But that is not the problem.

Try this:

Code:

---

Private Sub Application_ItemSend(ByVal Item As Object, cancel As Boolean)
    Item.HTMLBody = Replace(Item.HTMLBody, "E_B_L_O_C_K", "")
End Sub

---

---

Thank you so much, this works a treat and tidies the code up, very much appreciated.