[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『メールに貼り付ける画像の位置』(名無し)
VABにてメールを作成し、コピーしたセルを貼り付けるのですが、本文の一番上に貼り付けられてしまいます。
本文の下に貼り付けるにはどうしたらよいでしょうか。
< 使用 Excel:Excel2016、使用 OS:Windows7 >
とおりすがりさん、???さん、色々と情報不足で申し訳ございません。
メールはOUTLOOKを使用しています。
コードは下記でよろしいでしょうか?
Dim i As Long
i = 2
Do Until Sheets("A").Cells(i, 1) = 0
ActiveSheet.Range("$A$1:$M$50").AutoFilter Field:=4, Criteria1:=Sheets("A").Cells(i, 1) Range("F1:L50").Select Selection.Copy
Set ap = CreateObject("Outlook.Application") Set M = ap.CreateItem(0) M.BodyFormat = 3
'メールの本文 M.Body =
'メールのあて先
Dim ToAddress As String ToAddress = Sheets("A").Cells(i, 2)
M.To = ToAddress
'メールのCc
M.Cc = ";ABC.com"
'件名 M.Subject = "テスト" M.Display
'表を貼り付け ap.ActiveInspector.WordEditor.Windows(1).Selection.Paste
'M.Send 'メール送信
Set ap = Nothing Set M = Nothing
i = i + 1
Loop
> M.Body = この部分は使いません。削除するか、コメントアウトしておいてください。
> ap.ActiveInspector.WordEditor.Windows(1).Selection.Paste この部分を、以下に変えてみてください。 With ap.ActiveInspector.WordEditor.Windows(1).Selection .TypeText "本文" & vbCrLf .Paste End With
あと、「名無し」さんはいつも回答してくださる人と同名なので、次回からは別名を使うべきかと思います。
(???) 2018/10/12(金) 11:40
名前の件もご指摘ありがとうございます。
(名無し) 2018/10/12(金) 11:58
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.