Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2797 / 76735

←次へ　｜　前へ→


	【79578】outlookメールにセル貼り付け

excel2016 - 18/1/16(火) 13:09 -


	引用なし

	パスワード

メール本文
------------------

文章１

表（貼り付け）

文章２

という単純な文章を作りたいのですがなかなか上手く行きません。

下記のソースを利用すると

Sub macro()
　　Dim Ap As Object
　　Dim M As Object
　　'Excelで選択しているものをコピー（図でも表でもOKです）
　　Selection.Copy
　　Set Ap = CreateObject("Outlook.Application")
　　Set M = Ap.CreateItem(0)
　　　　M.BodyFormat = 3　'リッチテキスト形式
　　　　M.Body = "テストです"　'メールの本文
　　　　M.To = "test @ test"　'アドレス
　　　　M.Subject = "テスト"　'件名
　　　　M.Display　'画面を表示
　　　　With Ap.ActiveInspector
　　　　　　'貼り付け
　　　　　　.WordEditor.Windows(1).Selection.Paste
　　　　End With
End Sub
---------------------------------------------------
メール本文
------------------
表（貼り付け）

文章

となってしまいます。

ーーーーーーーーーーーーーーーーー

Dim str1 As String
Dim str2 As String
Dim str3 As String

と変数を用意して

xxx.body = str1 & str2 & str3

としようとしたのですが変数に
Range(A1:B9).text
のような複数セルの値が入らず困っています。

どなたかご教授願えないでしょうか。

0 hits

▼

【79578】outlookメールにセル貼り付け excel2016 18/1/16(火) 13:09