Emailing Cell contents in EXCEl using VB

I

ian lewis

I have an email script in VB but want it to just email the contents of
cell a2 and l2. Can anyone help? My current code is



Sub Send_Range()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("L2").Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True


With ActiveSheet.MailEnvelope
.Introduction = "Please can you add the following to xxxxxxxxxxxx"
& vbCrLf & vbCrLf _
& "xxxxxxxxxxx- work stage " &
Worksheets("PM6").Range("l3").Value
.Item.To = "(e-mail address removed)"
.Item.cc = "(e-mail address removed)"
.Item.Subject = "Additional xxxxxxxxxxxx- work stage " &
Worksheets("PM6").Range("l3").Value

' .Item.Send

MsgBox "Please check that that contents of the subject box and
introduction are correct before pressing SEND.", vbOKOnly +
vbInformation


End With
End Sub



*** Sent via Developersdex http://www.developersdex.com ***
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Emailing range in message body using VBA - problem 6
emailing a sheet 1
Emailing disjoint cells 0
Attach file to e-mail using excel macro 2
Checkboxes do not show when Worksheets Emailed 4
Emailing Range in Body CC Problem 1
microsoft email range code. Add to Sent Items folder? 0
Email selected range in Excel 0

Top