excel to send as attachment and as image in body of email

[excel01noob]

Hi

Might be quite complicated but can I have a macro preparing to send the data as an attachment to the email but also as a table in the body of the email ?

I have this macro for the attached file

Sub Mail_Sheet()
Dim wPath As String, wFile As String, dam As Object
Dim wMail As String, wSubj As String, wBody As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False

wFile = "Payments report VD " & Format(Date, "dd-mm-yyyy")
wPath = ThisWorkbook.Path & ""

wSender = Sheets("email").Range("A2").Value
wMail = Sheets("email").Range("B2").Value
wCC = Sheets("email").Range("C2").Value
wSubj = Sheets("email").Range("D2").Value
wBody = Sheets("email").Range("E2").Value

Sheets("payment list").Copy

ActiveWorkbook.SaveAs Filename:=wPath & wFile & ".xlsx"
ActiveWorkbook.Close False

Set dam = CreateObject("Outlook.Application").CreateItem(0)
dam.To = wMail
dam.SentOnBehalfOfName = wSender
dam.Subject = wSubj
dam.body = wBody
dam.Attachments.Add wPath & wFile & ".xlsx"
dam.Display '

Set dam = Nothing

End Sub


and I have using this one for the table in the email body

https://www.vba-market.com/excel-vba-insert-excel-table-into-body-of-email-message/

but trying to combine both it's an issue currently

 

[excel01noob]

You don't want to save the file, but you want to send a copy of the file?

If you don't want to send the file and just want to send the range, then also delete this lines:

  wFile = "Payments report VD " & Format(Date, "dd-mm-yyyy")
  wPath = ThisWorkbook.Path & "\"


  Sheets("payment list").Copy
  ActiveWorkbook.SaveAs Filename:=wPath & wFile & ".xlsx"
  ActiveWorkbook.Close False

  dam.Attachments.Add wPath & wFile & ".xlsx"

Hi DanteAmor

different people use the same info, while some would prefer to have the table in the body of email, others prefer to have it in excel format.....
So, finally I need to send both the table and excel but I do not need to save the excel as copy.

 

[DanteAmor]

I do not understand.
To send the excel file you have to save the file as excel.
You can save the file, send it and then delete the file.