Ouklook email format

[JonMcK]

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

Try this:

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.