#1
|
|||
|
|||
Format email body-Using Excel VBA to send mail
Hello
I am relatively new to VBA and just trying to learn some things to help automate some processes. I have the below VBA code attached to a command button to send an email from excel with an attachment. The code works great but is there a way to format the text in the email body and/or include any type of logo or signature in the body? Thanks! Code:
Private Sub Button1_Click() sendemail End Sub Public Function sendemail() esubject = "Daily Report" sendto = "brad2343@gmail.com" ebody = Range("A7") & vbCrLf & Range("A8") & vbCrLf & Range("A9") & vbCrLf & Range("A10") newfilename = "C:\user\docs\Letter.doc" Set app = CreateObject("Outlook.Application") Set itm = app.createitem(0) With itm .Subject = esubject .to = sendto .body = ebody .attachments.Add (newfilename) .Display .send End With Set app = Nothing Set itm = Nothing End Function Last edited by macropod; 01-31-2013 at 11:36 PM. Reason: Added code tags & formatting |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Outlook not sending body of email | sbertram | Outlook | 0 | 08-30-2012 11:50 AM |
attach multiple excel files to same email using send to option | cbtac | Excel | 0 | 01-04-2012 07:20 AM |
Mail merge will not format date field generated by Excel IF statement | borntorun75 | Mail Merge | 3 | 12-16-2011 06:28 AM |
cant send email directly from WORD (or excel) | etodem | Word | 0 | 04-03-2009 04:59 PM |
HTML Format Body - Scripts? | jeffcravener | Outlook | 0 | 11-14-2005 10:58 AM |