C
Corey
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
103").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....
Sub Send()
ActiveSheet.Range("A51
103").SelectActiveWorkbook.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....