I'm trying to copy the data in range B5:Q9 directly into an email, if i physically copy and past it into outlook, it takes the colors and format and everything, that what I'm trying to achieve with this button, any ideas? Thanks in advance!
Private Sub Email_WB_Click()
RSet WBRange = Range("B5:Q9").Copy
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.createitem(olmailitem)
With myItem
.Recipients.Add "donald@company.com"
.Body = WBRange
.Subject = "Employee Time Accurals"
End With
myItem.Send
End Sub