Option Explicit
Sub Send_Email_With_snapshot()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
Dim lr As Integer
lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row
sh.Range("A1:H" & lr).Select
With Selection.Parent.MailEnvelope.Item
.to = sh.Range("L6").Value
.cc = sh.Range("L7").Value
.Subject = sh.Range("L8").Value
.attachments.Add "C:\Users\allso\Desktop\new vba projects\arnab first class.xlsx"
.send
End With
MsgBox "Done"
End Sub
Source:https://www.pk-anexcelexpert.com/send-email-with-snapshot/
Source:https://www.youtube.com/watch?v=aD-lo81I5C4
