Dim i As Long
Dim row As Long
Dim trSh As Worksheet
Dim res As Integer
Dim oApp As Object
Dim objMAIL As Object 'メールのオブジェクト
res = MsgBox("連続でメールが送信されます、よろしいですか?", vbYesNo)
If res = vbNo Then Exit Sub
Set oApp = CreateObject("Outlook.Application") 'outlook 起動
With Worksheets("マスター")
row = .Cells(.Rows.Count, 1).End(xlUp).row
For i = 3 To row
Set objMAIL = oApp.CreateItem(0) 'メール作成
objMAIL.To = .Cells(i, 3).Value '宛先C行にメールアドレスが記入されている設定。
objMAIL.Subject = Range("A1").Value '件名セルA1に記入されているとする
objMAIL.Body = Range("B1").Value '本文セルB1に記入されているとする
objMAIL.send 'メール送信
Next i
End With
コメントを残す