Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Emailing Cell contents in EXCEl using VB
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 = " .Item.cc = " .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 *** |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel cell shading turns black when emailing | Excel Discussion (Misc queries) | |||
concatenate contents of cells whose contents resemble cell referem | Excel Worksheet Functions | |||
Macro to clear range contents when cell contents are changed by us | Excel Programming | |||
Emailing an Excel cell range | Excel Programming | |||
Macro to remove contents of cell and move all other contents up one row | Excel Discussion (Misc queries) |