Following is a basic example of sending Outlook email direct from Excel.
The sRecipients string is a list of email addresses separated by semi colons.
SCC is a string of BCC recipients.

Sub Send_Outlook_E_Mail()

Dim oOutlook As New Outlook.Application
Dim oNameSpace As Outlook.Namespace
Dim OMailitem As Outlook.MailItem
Dim SRecipients As String, SCC As String

SRecipients = ThisWorkbook.Sheets("Email").Range("C75").Value
SCC = ThisWorkbook.Sheets("Email").Range("C76").Value

Set oNameSpace = oOutlook.GetNamespace("MAPI")
oNameSpace.Logon '
Set OMailitem = oOutlook.CreateItem(olMailItem)
With OMailitem
.Subject = "Contract expiry...... etc"
.Recipients.Add SRecipients
.CC = SCC
.Body = "Contract expiring ...... etc"
'.SenderName
.display
'.Send
End With
oNameSpace.Logoff
Set oNameSpace = Nothing

End Sub