[[20150624164149]]　『マクロでメール送信』（あすな）　ページの最後に飛ぶ

『マクロでメール送信』（あすな）

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

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

コメント返信：

[ 一覧(最新更新順) ]

[[20150624164149]] 『マクロでメール送信』（あすな） ページの最後に飛ぶ

[[20150624164149]]　『マクロでメール送信』（あすな）　ページの最後に飛ぶ