Expiry dates - to send automated emails

Hello fellow Brightonian!

I use this at my work below. Some parts may need amending to your needs. This isn't possible without Excel open unless you have a personalworkook thats coded to autostart with huge amounts of arrays holding data. Anyhow, outlook VBA may be easier to work with for that if its vital.

Sub SetRecipients()
Dim aOutlook As Object
Dim aEmail As Object
Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String

Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)
Set rngeAddresses = ActiveSheet.Range("B3:B13")

For Each rngeCell In rngeAddresses.Cells
strRecipients = strRecipients & ";" & rngeCell.Value
Next

aEmail.Importance = 2 ' eg
aEmail.Subject = "(TestMail)"
aEmail.Body = "(TestSubject)"
aEmail.ATTACHMENTS.Add 'try document path
aEmail.To = strRecipients

aEmail.Send

End Sub

Hello thanks for the quick reply fellow Brightonian!

Surely this cant be the amount of code I need I tried my own but it was getting awfully complicated and didn't work lol