スキルアップ・問題解決なら、モーグにおまかせ！

おせわになります。
 
首記
下記のコードからOutlookにメール文を反映させています。
 
Sub 依頼メール()
 
    Dim objOutlook As Outlook.Application
    Dim objMail As Outlook.MailItem
    Set objOutlook = New Outlook.Application
    Set objMail = objOutlook.CreateItem(olMailItem)
     
    Dim wsMail As Worksheet
    Set wsMail = ThisWorkbook.Sheets("2022年")
     
    With wsMail
    objMail.To = .Range("B1").Value
    objMail.CC = .Range("B2").Value & ";" & .Range("B3").Value & ";" _
    & .Range("B4").Value & ";" & .Range("B5").Value
    objMail.Subject = .Range("B6").Value
    objMail.BodyFormat = olFormatPlain
    objMail.Body = .Range("B7").Value
     
    objMail.Display
     
End With
 
Set objOutlook = Nothing
 
End Sub
Ｂ７セルに以下の文章を記載しています。
 
〇〇課各位
 
おはようございます。
 
本日はログイン8：30
 
 
○○　太郎
 
この”本日はログイン8：30”と”○○　太郎”の間に
別シート(sheet2)からの
A1からC5まで値が入った表を挿入したいとおもっていますが
うまくいきません・・・
 
力不足ゆえ
ご尽力いただけますと幸いです。
 
 

このあいだあった下記の記事は参考になりませんか？
「メールにExcel表を貼る方法」
https://www.moug.net/faq/viewtopic.php?t=82318
 
# うーむ、
# objMail.BodyFormat = olFormatPlain
# だと添付ファイルになってしまうかもしれません。
# そうだとすると罫線のようなものも無理ですが。
# それ以外のものに変更することは不可ですか？
とりあえず情報提供のみ。

そうですか・・・
 
挿入したい表は罫線が入ったものです。
やっぱりむずかしいかなぁ

(1)プレーンテキストに罫線を入れることはできないのではないかと思います。
Excelの表をメモ帳にコピーペイストしてみれば分かります。
(ご自分で罫線を罫線文字列に置換するコードを書ければよいとは思いますが、私は知りません。)
  
(2)プレーンテキストではなく、RichTextモードを使って、Wordの表に相当するものを利用することもできます。
下記の、
「Excel のデータを Outlook の本文に表としてコピーするマクロ」
https://outlooklab.wordpress.com/2019/09/07/excel-%e3%81%ae%e3%83%87%e3%83%bc%e3%82%bf%e3%82%92-outlook-%e3%81%ae%e6%9c%ac%e6%96%87%e3%81%ab%e8%a1%a8%e3%81%a8%e3%81%97%e3%81%a6%e3%82%b3%e3%83%94%e3%83%bc%e3%81%99%e3%82%8b%e3%83%9e%e3%82%af/
が参考になるでしょう。
前回示した「図形埋め込み方式」だったのに対して、表に数値や文字列を挿入する方式です。
 
私はこれで一区切りです。

まずは一度終了とします。
 
コメントやいろいろな案を出していただきありがとうございます。
 
他にもやり方があるみたいですので、そちらも試してみたいと思います。