OutLookに表を貼り付けたい。【VBA】

環境

Windowsの仕様

エディション:Windows 10 Pro

バージョン:20H2

経緯

VBAを使って、Excelで作った表を貼り付けられないか、

今回勉強しました。

「.GetInspector().WordEditor.Windows(1).Selection.Paste」を使う

「.GetInspector().WordEditor.Windows(1).Selection.Paste 」を使うとうまくいきました。コードを載せます。

Sub SendEmail()

Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim wsMail As Worksheet

Set objOutlook = New Outlook.Application
Set wsMail = ThisWorkbook.Sheets(1)
Set objMail = objOutlook.CreateItem(olMailItem)

ActiveWorkbook.Save

    With wsMail
        objMail.To = .Range("A6") 'メール宛先
        objMail.CC = .Range("B6") 'CC
        objMail.Subject = .Range("C6").Value   'メール件名
        objMail.BodyFormat = 3     'メールの形式
        objMail.Body = .Range("D6").Value  'メール本文
        .Range("D10:F:15").copy '表をコピー
       obiMail.GetInspector().WordEditor.Windows(1).Selection.Paste
    End With
  
End Sub

コードの説明をします。空白の行はカウントしてません。

1行目、マクロの名前を決めてます。

2～4行目、変数の宣言しています。

5～7行目、変数をセットしています。5行目、私はsheet1に”メール宛先”とか”メール件名”とかの情報を書いているので、それを呼ぶための文です。

8行目、ファイルを上書き保存します。

9行目、With文開始です。*私はセルに各情報を載せているので、こんな書き方ですが、直接、アドレスやメール文を”＝”の後に入力しても大丈夫です。

10行目、「メールの宛先」です。複数人ある場合「＆」でつなげると、複数の人に送れますよ。

11行目、「CC」です。

12行目、「メール件名」です。

13行目、「メール形式」です。私は「３」のリッチテキスト型にしています。「０」だとテキスト型、「２」だとHTML型になります。用途に合わせて設定してください。

14行目、「メール本文」です。

15行目、表をコピーします。

16行目、ここが表を貼り付ける命令です。

17行目、With文終わりです。

18行目、マクロ終わりです。

この後の展開

このやり方だと、表が本文の一番初めにきてしまいます。私は本文の最後に表を貼りたいのですが、

全然うまくいかず、あきらめました。勉強します。

なので、今回は表を貼るだけの処理になります。

参考になれったら、幸いです。

ここまで読んでいただきありがとうございました。

【AI×就労支援】Neuro Dive（ニューロダイブ）で先端ITを学び、スペシャリストとしての就職を目指しませんか？

最後に宣伝をさせてください。

AIやデータサイエンス、RPAといった分野に興味はあるけれど、
「どうやって学べばよいか分からない」「就職につなげる方法が見つからない」とお悩みの方へ。

Neuro Dive（ニューロダイブ）は、
パーソルダイバース株式会社が運営する日本初の「先端IT特化型」就労移行支援サービスです。

障害のある方を対象に、AI・機械学習・データサイエンスなど、今まさに社会で求められている高度なスキルを身につけ、IT系企業での就職を現実のものとするサポートを行っています。

---

Neuro Diveが選ばれる理由

• 就職率80%以上、職場定着率95%以上という実績
• eラーニングによる柔軟な学習スタイル
• 実践型カリキュラムで、**「ビジネスで通用するスキル」**が身につく
• プログラミング未経験から就職を果たした事例も多数

---

こんな方におすすめです

• AIやIT技術に興味があり、専門スキルを身につけたい方
• 独学では限界を感じている方
• 自分の得意分野（集中力・観察力・論理的思考力）を仕事に活かしたい方
• 障害を持ちながらも、IT分野でスペシャリストを目指したいと考えている方

---

Neuro Diveは、18歳から64歳までの一般就労を目指す障害のある方を対象としています。
プログラミングやAIは未経験という方でも、「やってみたい」という気持ちがあれば大丈夫です。

---

未来を変える一歩は、ここから始まります。
先端ITを学びながら、自分の力を社会で活かすための一歩を踏み出してみませんか？

▶ 詳しくはAIやデータサイエンスが学べる就労移行支援【Neuro Dive】 ” target=”_blank” rel=”noopener” title=””>こちらから