I have the following macros that work:
Sub AAA_test_MAR()
Set Mail_Object = CreateObject("Outlook.Application")
With Mail_Object.CreateItem(o)
.Subject = "Monthly Action Report (MAR) "
.To = "richard.sabbara@xxx.com"
.CC = ""
.HTMLBody = MAR_Message_SECURE
.Attachments.Add ""
.Send
End With
End...