PADでOutlookメール本文にExcel表を貼り付ける方法！

<table width="50%" cellpadding="0" cellspacing="0" border="1">
    <thead>
        <tr bgcolor="#eeeeee">
            <th>ヘッダーA列</th>
            <th>ヘッダーB列</th>
            <th>ヘッダーC列</th>
        </tr>
    </thead>

    <tbody>
        <tr>
            <td>1行目A列</td>
            <td>1行目B列</td>
            <td>1行目C列</td>
        </tr>
        <tr>
            <td>2行目A列</td>
            <td>2行目B列</td>
            <td>2行目C列</td>
        </tr>
    </tbody>
</table>

Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: $'''C:\\Users\\user\\Desktop\\dummydata.xlsx''' Visible: True ReadOnly: True Instance=> ExcelInstance
Excel.ReadFromExcel.ReadAllCells Instance: ExcelInstance ReadAsText: False FirstLineIsHeader: True RangeValue=> ExcelData
Excel.CloseExcel.Close Instance: ExcelInstance
LOOP FOREACH rowData IN ExcelData
    LOOP FOREACH cellData IN rowData
        SET HtmlTableRow TO HtmlTableRow + '<td>' + cellData + '</td>'
    END
    SET HtmlTable TO HtmlTable + '<tr>' + HtmlTableRow + '</tr>'
    SET HtmlTableRow TO $'''%''%'''
END
LOOP FOREACH header IN ExcelData.Columns
    SET HtmlTableHeader TO HtmlTableHeader + '<th>' + header + '</th>'
END
SET HtmlTable TO '<table width=\"100%\" cellpadding=\"0\" cellspacing=\"0\" border=\"1\" >' + '<thead><tr bgcolor=\"#eeeeee\">' + HtmlTableHeader + '</tr></thead>' + HtmlTable + '</table>'
Outlook.Launch Instance=> OutlookInstance
Outlook.SendEmailThroughOutlook.SendEmail Instance: OutlookInstance Account: `` SendTo: `` Subject: $'''テストメールです！''' Body: $'''〇〇株式会社
<Br>
山田　様
<Br>
<Br>
いつもお世話になっております！
<Br>
ダミーデータを送信します。何卒宜しくお願いいたします。
<Br>
<Br>
%HtmlTable%
<Br>
<Br>
以上''' IsBodyHtml: True