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')"