I am trying to send a form as a table in Outlook once clicking a button in the sheet. I tried writing a code to take it as a snapshot and it worked but this gave me a hard time while using power query to compile some date from the sent emails .. and I figured out that I have to have the table in the body and not as a snapshot.

I can't seem to figure where is the problem exactly as I am a novel user of VBA.

```
   Private Sub CommandButton2_Click()

Dim outlook As Object
Dim newEmail As Object
Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets("FX Request Form")

Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(olMailItem)

With newEmail

.to = "belsawy@banquemisr.com"
.CC = ""
.bcc = ""
.Subject = sh.Range("C9").Value
.Body = ""

Dim xInspect As Object
Dim pageEditor As Object

Set xInspect = newEmail.GetInspector
Set pageEditor = xInspect.WordEditor

sh.Range("B2:C21").Copy

pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.Paste

.Send

Set oageEditor = Nothing
Set xInspect = Nothing

End With

Set newEmail = Nothing
Set outlook = Nothing

MsgBox "Your Request Has Been Sent To The Concerned Departments,Thank You"

End Sub

```