MENU
知の森へ
  1. ホーム
  2. VBAノート
  3. OutLookに表を貼り付けたい。【VBA】

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

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エンジニアへ、今こそ一歩を踏み出せ！

最近、AI技術やデータサイエンスに興味を持ち始めたあなた。将来、AIエンジニアやデータサイエンティストとして活躍したいと考えているかもしれません。また、AIを使って業務課題や研究課題を解決したい、あるいは教養としてAIの知識を深めたいと思っている方もいるでしょう。

しかし、学び始めるとなると「どこから手をつけて良いのか分からない」「専門的すぎて理解できない」といった悩みが生じることも。そんなあなたのために、この3ヶ月間集中してAIプログラミングを習得するオンラインコーチングサービスがオススメです！

なぜこのサービスが選ばれるのか？その理由はこちら

  1. 初心者から上級者まで
    完全なプログラミング初心者から研究者まで、幅広い方々に優良なコンテンツが提供されます。
  2. 徹底的な進捗管理
    受講者の進捗をしっかりとチェックし、つまずきやすいポイントでのフォローが万全です。
  3. 専属メンターによる徹底サポート
    AIの学び方から、実際の適用まで、専属のメンターが手厚くサポートします。
  4. 場所を選ばず学べるオンライン完結
    東京以外の地域からも、気軽に学び始めることができます。

信頼の実績多数！
・日本最大級のプログラミングスクール実績
・受講者総数700名以上
・SaaS型学習サービス会員65,000名以上
・企業導入実績120社以上
・グッドデザイン賞受賞
・著名な賞受賞歴や経団連加盟も実現

夢を叶えるための第一歩を、一緒に踏み出しませんか？今なら、あなたもその一員として学び始めることができます！

VBAノート
VBA
よかったらシェアしてね！
  • URLをコピーしました！
  • URLをコピーしました！

この記事を書いた人

morishuheiのアバター morishuhei

私が勉強したこと、実践したこと、してることを書いているブログです。
主に資産運用について書いていたのですが、
最近はプログラミングに興味があるので、今はそればっかりです。

関連記事

目次