HI All,

I want to copy paste the datas in sheet called pivot1 to outlook body and also i need the entire work book to be sent along with the mail.

I used the below code but its not working

Sub mailsend()
Sheets("Pivot1").Select
Dim lRow As Long
Dim lCol As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
lRows = lRow + 1
Dim rng As Range
todaysdate = Date
todaystime = Now
ActiveSheet.Range("A1:R" & lRows).Select

ActiveWorkbook.EnvelopeVisible = False
With ActiveSheet.MailEnvelope
.Introduction = "Please find below report status " & todaystime
.Item.To = "[email protected]"
.Item.Subject = "Automatic mail of report status on - " & todaysdate
.Item.body = ActiveSheet.MailEnvelope
.Item.Attachments.Add ActiveWorkbook.FullName
Item.Send
End With
End Sub

Kindly guide please.

The work book should not be saved, It should just get attach in mail thats it.