[[20181012100713]] 『メールに貼り付ける画像の位置』(名無し) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『メールに貼り付ける画像の位置』(名無し)

 VABにてメールを作成し、コピーしたセルを貼り付けるのですが、本文の一番上に貼り付けられてしまいます。

 本文の下に貼り付けるにはどうしたらよいでしょうか。    

< 使用 Excel:Excel2016、使用 OS:Windows7 >


使ってるメールソフトが不明ですが。
(とおりすがり) 2018/10/12(金) 10:46

コピーしたセルは、画像の添付ファイルとして貼られるのでしょうか? マクロで貼るのを後に回せばよさそうですが、今どんな命令でメール作成しているのか、コード全部を貼れませんか?
(???) 2018/10/12(金) 10:48

 とおりすがりさん、???さん、色々と情報不足で申し訳ございません。

 メールは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


(名無し) 2018/10/12(金) 11:04

手元にOutlookが無いので、直し方だけになります。 ご自分でデバッグしてみてください。

 >       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.