See the attached Sheet
You can Change the Subject according to You by in VBE:
Sub SenDmail()
Dim outLookApp As Outlook.Application
Set outLookApp = New Outlook.Application
Dim Msg As String
Dim mitem As Object
Dim cell As Range
For Each cell In Range("Range")
Msg = Msg & cell.Value & vbCrLf
Next
Set mitem = outLookApp.CreateItem(OlMailitem)
With mitem
.To = Range("EmailID").Value
.Subject = "TestMail"
.Body = Msg
End With
mitem.Send
outLookApp.Quit
Set outLookApp = Nothing
MsgBox "Mail Has been Sent ", vbInformation
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Vincent Torralbes
Sent: Tuesday, August 02, 2011 5:56 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Emailing from Spreadsheet
I have a sheet where I have data populated based on a drop down list. I
want to be able to copy the data (A1:F40) and email it to an email address
on cell C5. Currently I have to manually copy, open up outlook, paste the
data then copy and paste the email address. Is there a way at the push of a
button it will automatically send it via excel?
Thanks Experts!
Vinnie
--
----------------------------------------------------------------------------
------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
SendMail.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
