I have the below code to send a range of cells, including any images in the range in the body of an email.

Sub Send()
ActiveSheet.Range("A51:P103").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = Range("J64")
.Item.CC = Range("J65")
.Item.Subject = Range("B1")
.Item.Send
End With
End Sub

If I place this in a NEW Workbook and run it from a button it works fine.
It uses Outlook and places a copy of the sent email in the SENT items, AND the email arrives complete with the image on it.
BUT, if I:


Run the above(same) code in the workbook I have set up with numerous other macros, it sends, but
I get NO copy in the SENT ITEMS and NO IMAGE when it arrives.

I tried placing ALL the macros I have into 1(one) Module, to no avail.
I Tried placing each macro into it's own Module, to no avail.
I tried disabling each macro 1 x 1 to no avail.

What else could be affecting this?
Has anyone had similar behaviour?

How do I rectify it?

Corey....