Project 2 - Create a report using PowerQuery, Macro VBA, List Functions and Data Validation functions for Data Reporting of Supply Chain Management companies

Public Sub email()
Dim i As Integer, mail_object, email_subject, o As Variant, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Set mail_object = CreateObject("outlook.Application")
For i = 2 To lr
With mail_object.createitem(0)
.Subject = Range("B2").Value
.to = Range("A" & i).Value
.body = Range("C2").Value '
.send
.display 'disable display and enable send to send automatically
End With
Next i
MsgBox "E-Mail successfully sent", 54
Application.DisplayAlerts = False
Set mail_object = Nothing