[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロでメール送信』(あすな)
エクセルの一覧を元にメールを作成し、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 >
エラー内容から想像して 私だったら、とりあえず試すこと、
>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.