I am trying to insert a range of cell in the body of an outlook email with the same format. The code I am using now is below and it does insert anything in the email body.
Rich (BB code):
Sub Mail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "cbelcher@jpfryelaw.com"
.CC = ""
.BCC = ""
.Subject = "Burden Report"
.Body = ActiveSheet.Range("A1:D12")
.Attachments.Add ("C:\Documents and Settings\cbelcher\Desktop\Burden Report.xls")
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Set objMsg = Nothing
End Sub