Hi this is one of the best solution I found on MS help site.
This helps in sending email with certain cells from sheet as email body.
I am trying to modify this code to include:![]()
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.Display End With End Sub
1. Range from A2:H5000 ( Only rows having data in it)
2. When Receiver replies & edits cells, the colour of text added is RED in email body
3. If I go ahed with sending email, but after display I change my mind, I should be able to cancel it. Currently I dont know how to do it, as email envp there is no provision
Help requested
Kind regards
Bookmarks