Send email when excel opens and it recognises a cell date is due to expire|VBA & Macros|Excel Forum|My Online Training Hub

Hello!

I have written the below so I can send the excel as an attachment. Is there a way to only create the email when a date is due to expire. Column E = Email Date (in month-year)

Sub Certificate_Renewal_Programme()

'Step 1: Declare our variables
Dim OLApp As Outlook.Application
Dim OLMail As Object

'Step 2: Open Outlook start a new mail item
Set OLApp = New Outlook.Application
Set OLMail = OLApp.CreateItem(0)
OLApp.Session.Logon

'Step 3: Build our mail item and send
With OLMail
.To = "xxx.xxx@xxx.uk.com; xxx.xxx@xxx.uk.com"
.CC = "xxx.xxx@xxx.uk.com"
.Subject = "Certification Renewal Programme"
.Body = "Please see attached and action and items highlighted in red. Please advise Quality once complete so they can change the document accordingly."
.Attachments.Add ActiveWorkbook.FullName
.Display
End With

'Step 4: Memory cleanup
Set OLMail = Nothing
Set OLApp = Nothing

End Sub

Thank you.