vbaについて質問です。 エクセルの表をコピーして、新規メールに貼り付けるマクロを作成したいです。 コピーまではできたのですが、表がうまく貼り付け出来ません。 下記コードのpasteを削除すると、メールは作成できるのですが表が貼り付け出来ません。オブジェクトが必要です。とでます。 どなたかご教示お願いいたします。 '新規メールを作成して送信する Dim olApp As Object Dim MailItem As Object Dim objMail As Object Dim strBr As Variant '改行コードを指定します。 strBr = "<BR>" 'Outlookを起動する Set olApp = CreateObject("Outlook.Application") 'outlookオブジェクト生成 Set objMail = olApp.CreateItem(0) 'メールを作成する Set MailItem = olApp.CreateItem(0) With MailItem '送信先を指定する .Recipients.Add("~@~").Type = 1 '件名を指定する .Subject = "テスト" '本文を指定する .HTMLBody = "各位" & strBr _ & "お疲れ様です。" & strBr & strBr _ & "テスト配信になります。" & strBr _ .Paste 'メールを表示します。 .Display