Public Sub SendMailMessage(ByVal recipients As String, ByVal copiesTo As String, ByVal blindCopiesTo As String, ByVal subject As String, ByVal body As String)

  Dim Outlook As Outlook.Application
  Set Outlook = New Outlook.Application
  Dim MailMessage As Outlook.MailItem
  Set MailMessage = Outlook.CreateItem(0)

  With MailMessage
    .To = recipients
    .cc = copiesTo
    .BCC = blindCopiesTo
    .subject = subject
    .body = body
    .Send
  End With

End Sub

Set o = GetObject(, "Outlook.Application")
If o.Explorers.Count = 0 Then
    'Open inbox to prevent errors with security prompts
    o.Session.GetDefaultFolder(olFolderInbox).Display
    o.ActiveExplorer.WindowState = olMinimized
End If

Public Sub SendTestMessage()
  SendMailMessage "me@my.org", "test message", "this is only a test"
End Sub

Public Sub SendMailMessage(ByVal recipients As String, ByVal subject As String, ByVal body As String, Optional ByVal copiesTo As String, Optional ByVal blindCopiesTo As String)

  LogManager.Log DebugLevel, "Utilities.OutlookTools.SendMailMessage"
  Dim mailer As Outlook.Application
  LogManager.Log DebugLevel, "about to: GetObject('Outlook.Application')"
  Set mailer = GetObject(Class:="Outlook.Application")
  If mailer Is Nothing Then
    LogManager.Log DebugLevel, "about to: CreateObject('Outlook.Application')"

"2019-11-21 10:43:10	DEBUG	Utilities.OutlookTools.SendMailMessage"
"2019-11-21 10:43:10	DEBUG	about to: GetObject('Outlook.Application')"
"2019-11-21 10:43:10	ERROR	Source: Quarterly Report Error Num: 429 Description: ActiveX component can't create object"

#If LateBind Then
Public Function OutlookApp() As Object
    Static o As Object

    Const olMinimized As Long = 1
    Const olFolderInbox As Long = 6
#Else
Public Function OutlookApp() As Outlook.Application
    Static o As Outlook.Application
#End If
    Select Case True
        Case o Is Nothing, Len(o.Name) = 0
            Set o = GetObject(, "Outlook.Application")
            If o.Explorers.Count = 0 Then
                'Open inbox to prevent errors with security prompts
                o.Session.GetDefaultFolder(olFolderInbox).Display

if (earth.Contains(iven).When(completesTransitAroundSun) && DateTime.Not.Equals(iven.Birthday))
{
    iven.Age++;
}