Excel VBA Bulk Email with date and time email sent

Hi guys,

I am working an Excel file to send bulk emails to clients from a list.

I made this VBA for only the first row of the list but I don't know how to make it send emails to the whole list. Values that change are K2, A2 and B2.

I also would like to add the column to indicates that the email was sent with the date and time.

Your help is really appreciated!

Thank you so much
Claudia

Sub ESES()

Dim emailApplication As Object
Dim emailItem As Object

Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItemFromTemplate(Range("K2").Text)

emailItem.SendUsingAccount = "myemail@email.com"

emailItem.to = Range("B2").Value
emailItem.Subject = "Business Appointment"

Dim sBody As String

sBody = emailItem.HTMLbody
sBody = Replace(sBody, "#$ClientNumber#", Range("A2").Text)
emailItem.HTMLbody = sBody

emailItem.Display

Set emailItem = Nothing
Set emailApplication = Nothing

End Sub