エクセルからOUTLOOKでメール送信：２

質問

●前回下記の質問を書かせていただきました。

----------
エクセルに複数件のデータを記載してあります。

A列　に　メールアドレス
B列　に　件名
C列　に　本文A
D列　に　本文B

があるときに連続してメールを立ち上げ送信したいです。
いろいろ試してみましたが全く動きませんでした。

お手隙の際にでもお教え下さい。
マクロのサンプルソースがあると助かります。

よろしくお願いいたします。
----------------

●下記の回答をいただきメールの送信までは出来ました。

----------------
Sub ボタン1_Click()
Dim myOLApp As Object
' Dim myDATA As MailItem

'### OUTLOOKのオブジェクトを作成後、メールを新規作成する。
Set myOLApp = CreateObject("Outlook.Application")
For i=2 To 5
Set myDATA = myOLApp.CreateItem(olMailItem)

'### メールの宛先、題名、本文、添付ファイルを設定する。
'（宛先のアドレス）
myDATA.to = Range("A" & i).Value
' myDATA.CC = Range("D33").Value
myDATA.Subject = Range("B" & i).Value
myDATA.Body = Range("C" & i).Value & CHAR(10) & Range("D" & i).Value

'### メールを送信
myDATA.Send
Next
'### お約束の後始末。
Set myDATA = Nothing
Set myOLApp = Nothing
End Sub

こんな感じでしょうか。
For i=2 To 5 と　２行目から５行目です。
うまくいくようでしたら
For i=2 To Range("A" &Rows.Count).End(xlUp).Row
とでも変更してください。
なんといっても失敗すると大変なリスクが発生するプログラムです。
十分に実験してから運用してください。

------------------------

●メール送信は問題なくできておりましたが、
　他のCSVリストよりエクセルにデータを引っ張ってきて
　メールの送信を使用とした所

システムエラーです 80004005 エラーを特定できません。

と言ったエラーが出てくるようになりました。
多分他のシートから引っ張ってくる関数がジャマをしているとは思うのですが、
何かこのエラーを回避する方法はございますでしょうか？

お教え下さい。

回答No.1

Prome_Lin · ベストアンサー

ほとんど、他の方の丸写しに近いですが、
実験の結果、以下のプログラムでメールが送れました。

Sub test()
Dim objApp As Object
Dim objFolder As Object
Dim objMAIL As Object
Dim strTo As String
Dim strCc As String
Dim strSubject As String
Dim strBody As String
Dim i As Long
If Worksheets(1).Cells(1, 1).Value = "" Then
MsgBox "送信先が設定されていません。"
Exit Sub
Else
Set objApp = CreateObject("Outlook.Application")
Set objFolder = objApp.GetNamespace("MAPI").GetDefaultFolder(4) '送信トレイ
Set objMAIL = objApp.CreateItem(0)
strTo = Worksheets(1).Cells(2, 1).Value
strCc = Worksheets(1).Cells(2, 2).Value
strSubject = Worksheets(1).Cells(2, 3).Value
strBody = Worksheets(1).Cells(2, 4).Value
objMAIL.To = strTo
objMAIL.Cc = strCc
objMAIL.Subject = strSubject
objMAIL.Body = strBody
'添付ファイル
For i = 2 To Worksheets(1).Cells(65536, 5).End(xlUp).Row
objMAIL.attachments.Add Worksheets(1).Cells(i, 5).Value
Next i
objMAIL.Send
Set objMAIL = Nothing
Set objFolder = Nothing
Set objApp = Nothing
End If
End Sub

私が変更を加えたのは、最後から６行目の「objMAIL.Send」ぐらいです。

このプログラムでしたら、ファイルも添付できますが、
添付するときは、「F:￥Data￥abc￥xyz.xlsx」などと
セルに書き込んでおく必要があります。

それから、ご希望の次から次へと
エクセルの内容を読み込んで送信するのは、
簡単ですから、分かると思います。

ほとんど、他の人の丸写しではありますが、
参考になれば、幸いです。

お礼

試してみます！
ありがとうございます！