[[20150624164149]] 『マクロでメール送信』(あすな) >>BOT

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

 

『マクロでメール送信』(あすな)

 エクセルの一覧を元にメールを作成し、1通目は送信できましたが、2通目で
 「実行時エラー:このアイテムは移動または削除されています。」
 と出ます。

 ========== 
 Sub mail()
 Dim Tws As Worksheet, Mws As Worksheet
 Dim i As Long, N1 As String, N2 As String, Madd As String, LR As Long, head As String, N3 As String, body As String
 Dim  OL As Outlook.Application
 Dim ML As Outlook.MailItem

 body = "こんにちは"

 Set OL = CreateObject("Outlook.Application")
 Set ML = OL.CreateItem(olMailItem)

 Set Tws = Worksheets("sheet1")
 Set Mws = Worksheets("Master")

 LR = Mws.Cells(Rows.Count, 3).End(xlUp).Row

 For i = 2 To LR
    ThisWorkbook.Activate
    N1 = Mws.Cells(i, 3).Value '会社名
    Madd = WorksheetFunction.VLookup(N1, Sheets("送信先data").Range("C:F"), 4, False) '送信先メールアドレス

            Tws.Range("C1").Value = N1 '会社名を入れる
            Tws.Copy
            ActiveWorkbook.SaveAs Filename:="C:\Users\" & "ファイル名.xlsx"

            ML.To = Madd★★★
            ML.Subject = ”Hello" '件名
            'ML.Attachments.Add "C:\添付ファイル"  '添付ファイル
            ML.body = body '本文
            ML.Send   

 Next i
  Set ML = Nothing
  Set OL = Nothing
 end sub
 ===============
 ★★★のあて先のメールアドレスのところがマークされます。
 参照設定は Microsoft Outlook 15.0 Object Library につけました。
 参照設定のチェックが足りないのか、調べてみましたが分かりませんでした。
 よろしくお願いいたします。

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


Outlookは全くの素人ですが、
 エラー内容から想像して
 私だったら、とりあえず試すこと、

 >Set ML = OL.CreateItem(olMailItem)

 を、For〜Nextの中に入れてみると思います。

(マナ) 2015/06/24(水) 20:56


 マナさんありがとうございました。
 OUTLOOK側のエラーが出てしまいましたが、なんとか動きそうです。
 助かりました。
(あすな) 2015/06/25(木) 09:05

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.