Microsoft Office Forums - View Single Post - [Solved] Format email body-Using Excel VBA to send mail

Claytocb · 01-08-2013, 04:41 PM

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