| |
メール本文
------------------
文章１
表（貼り付け）
文章２
という単純な文章を作りたいのですがなかなか上手く行きません。
下記のソースを利用すると
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
のような複数セルの値が入らず困っています。
どなたかご教授願えないでしょうか。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
