Your e-mail text appears to contain two tables, so based on what you posted, the following macro will create the e-mail. You should be able to see how the macro works, should you require any further information from the tables.
The main macro can be run as a script as a script associated with a rule. Or select a suitable message asn run the first macro.
Sub TestCode()Dim olMsg As MailItem
On Error Resume Next
Set olMsg = ActiveExplorer.Selection.Item(1)
ReplyToMail olMsg
lbl_Exit:
Exit Sub
End Sub
Sub ReplyToMail(olItem As Object)
'Graham Mayor - https://www.gmayor.com - Last updated - 17 Sep 2019
Dim olOutMail As MailItem
Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object
Dim oTable As Object
Dim oCell As Object
Dim strName As String, strDate As String
Dim strTime As String, sLocation As String
If TypeName(olItem) = "MailItem" Then
With olItem
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range
Set oTable = oRng.Tables(1)
Set oCell = oTable.Cell(3, 3).Range
oCell.End = oCell.End - 1
strName = oCell.Text
Set oTable = oRng.Tables(2)
Set oCell = oTable.Cell(3, 3).Range
oCell.End = oCell.End - 1
strDate = oCell.Text
Set oCell = oTable.Cell(4, 3).Range
oCell.End = oCell.End - 1
strTime = oCell.Text & " until "
Set oCell = oTable.Cell(5, 3).Range
oCell.End = oCell.End - 1
strTime = strTime & oCell.Text
Set olOutMail = olItem.Reply
With olOutMail
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range
.Display
oRng.collapse 1
oRng.Text = "Dear " & strName & vbCr & vbCr & _
"Thank you for your classroom application. We reserved for you:" & vbCr & vbCr & _
"Date : " & strDate & vbCr & vbCr & _
"Classroom:" & vbCr & _
"Hours : " & strTime & vbCr & vbCr & _
"Greetings , Marc"
'.Send 'restore after testing
End With
End With
End If
lbl_Exit:
Set olOutMail = Nothing
Set olItem = Nothing
Set olInsp = Nothing
Set wdDoc = Nothing
Set oRng = Nothing
Exit Sub
End Sub