M
Meghan
I am trying to set up a macros that will allow me to send specific cell
ranges to multiple e-mail addresses. I don't have any problem setting up the
first cell range/e-mail address, but I am not sure how to set up the command
for the additional ranges. Do you have any suggestions?
Sub MacroTest()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A1:H7", "A9:H12").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = False
' 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 removed)"
.Item.Subject = "Test"
.Item.Send
End With
End Sub
ranges to multiple e-mail addresses. I don't have any problem setting up the
first cell range/e-mail address, but I am not sure how to set up the command
for the additional ranges. Do you have any suggestions?
Sub MacroTest()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A1:H7", "A9:H12").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = False
' 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 removed)"
.Item.Subject = "Test"
.Item.Send
End With
End Sub