Forgot to attach email.... On Tue, Aug 2, 2011 at 8:55 AM, Vincent Torralbes <vtorral...@gmail.com>wrote:
> Thank you Rajan, this certainly helps, but it doesn't maintain the
> formatting. Attached is the format I'm trying to maintain on the email
> body. Also, when I click on the button (execute macro), it gives me a
> message that an external program is trying to email where I have to click on
> "Allow" after 5 seconds or so....can that be avoided?
>
> Thanks!
>
>
> On Tue, Aug 2, 2011 at 8:36 AM, Rajan_Verma <rajanverma1...@gmail.com>wrote:
>
>> *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
>>
>
>
--
----------------------------------------------------------------------------------
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: Binary data
