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

質問

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

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

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

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

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

回答No.1

hallo-2007 · ベストアンサー

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
とでも変更してください。
なんといっても失敗すると大変なリスクが発生するプログラムです。
十分に実験してから運用してください。

お礼

ありがとうございました！
希望していたものです！！
助かりました！！