VBA for Email Reminders (Outlook)

Hello, I'm looking to use VBA to send emails, using Outlook, based upon specific dates. Below is an explanation of columns:

A: License Name
B: License Purchase Date
C: License Expiration Date
E: 3 Months Prior to Expiration Date
F: 1 Week Prior to Expiration Date

What I'm looking to do is have Excel send me an email 3 months before the license expires (including the license name from column a and the expiration date from column C), as well as another reminder 1 week prior to expiration. Any help would be greatly appreciate - thanks!

.
Here are two examples you can review and edit to your needs :

30 days out :

Option Explicit

Sub chkdate()
Dim n As String
Dim Today As Long

n = Sheets("Sheet1").Range("A1").Value

If n < (Now() + 30) Then
    'MsgBox "Time !"
    Send_Mail_From_Excel
End If

End Sub


Sub Send_Mail_From_Excel()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
 
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
 
    'Send Mass Email Using Excel VBA Macro Code
    With OutlookMail
        .to = "youremail@some.com"
        .CC = ""
        .BCC = ""
        .Subject = "30 Day Check"
        .Body = "Time to check the date !"
        '.Send  ' or just put .Send to directly send the mail instead of display
        .Display
        
    End With
 
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

X Days Ahead :

Option Explicit

Sub SndMail()
Dim cll As Variant
Dim duedays As String

    With Sheets("Sheet2")
        For Each cll In .Range("G6:G" & .Cells(.Rows.Count, 7).End(xlUp).Row)
            If cll.Value = Date + 30 And cll.Offset(, 7) = vbNullString Then
                cll.Offset(, 7).Value = "X": duedays = 30
                GoTo sendmail
            ElseIf cll.Value = Date + 15 And cll.Offset(, 8) = vbNullString Then
                cll.Offset(, 8).Value = "X": duedays = 15
                GoTo sendmail
            Else
                GoTo continue
            End If
sendmail:
            With CreateObject("Outlook.Application").CreateItem(0)
                .To = cll.Offset(, 1).Value
                .Subject = "Risk Assessments Due"
                .Body = "Dear, " & vbNewLine & vbNewLine & _
                    cll.Offset(, -6).Value & " is due in " & duedays & " days." & vbNewLine & vbNewLine & _
                    "Please contact us to make an appointment." & vbNewLine & vbNewLine & _
                    "Service Agent : " & cll.Offset(, 2).Value
                    '.Attachments.Add ("C:\test.txt")
                .Display '.Send
            End With
continue:
        Next
    End With
End Sub

I copy and pasted your code into my VBA. I changed the reference from A1 to B2 for n as B2 is the first cell in which the expiration dates can be found. I'm looking for something to automatically run the macro for me without me having to open the workbook everyday and click on the macro in order for it to run.

.
You will need to open the workbook in order for it to function as desired.

In the VBE, in the ThisWorkbook module, you can select the Workbook_Open and place a call to the email macro there.

Example :

Option Explicit

Private Sub Workbook_Open()
    SndMail
End Sub

Anytime you open the workbook, the macro will auto run.