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.
Bookmarks