stupidexcel
New Member
- Joined
- Jun 23, 2016
- Messages
- 4
Hi All - I would like to know how I could modify the below codes that I found in the MS support site to allow me do my task below:
Sub Send_Range()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A1:B5").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "E-Mail_Address_Here"
.Item.Subject = "My subject"
.Item.Send
End With
End Sub
What I would like to do is:
1. Send the information in range B18:G50 as a body of the email, but the range may change in the future if the pivot in this range will expand
2. On top of the pivot I would like to have add a statement like the below:
Hi,
Below is your....
Signature
3. Add Cc in the email
PS: I cannot add the sample file that I have
Sub Send_Range()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A1:B5").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "E-Mail_Address_Here"
.Item.Subject = "My subject"
.Item.Send
End With
End Sub
What I would like to do is:
1. Send the information in range B18:G50 as a body of the email, but the range may change in the future if the pivot in this range will expand
2. On top of the pivot I would like to have add a statement like the below:
Hi,
Below is your....
Signature
3. Add Cc in the email
PS: I cannot add the sample file that I have