Attachment + range of cells via email

[danjones121]

Hi I am having difficulty writing the code to send an email with the active workbook attached to it and also a range of cells from the active sheet in the body of the email. I can do one or the other but cannot seem to combine the 2. Can anyone help?

[HaHoBe]

Hi, danjones121,

you could have posted the code you have so far. Maybe have a look at Mail from Excel with Outlook (Windows) for some samples and be more specific on what might not suit together likje you want it.

Ciao,
Holger

[danjones121]

Here is the code I have so far.


Sub Send_Range()



ActiveSheet.Range("EOD").Select (EOD is a named range)


ActiveWorkbook.EnvelopeVisible = True


With ActiveSheet.MailEnvelope
.Introduction = "Good evening, please see below the End of day report."
.Item.To = "EOD Report" (contact group)
.Item.Subject = "End Of Day Report"
.Item.send
.Item.attach = ActiveWorkbook
End With
End Sub


The Attach line seems to be the problem.

[HaHoBe]

Hi, danjones121,

try reversing Send and Attach command lines. And please wrap your code with code-tags.

Ciao,
Holger

[danjones121]

Sorry im new to all this.

I have tried what you have said and still not working. Object does not support this method.

[HaHoBe]

Hi, danjones121,

please have a read at Forum Rule #3 to add code-tags.

Ciao,
Holger