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