Here it is.
Private Sub Form_Load()
Dim objOutlook As Outlook.Application
Set objOutlook = CreateObject("Outlook.Application")
DoCmd.SendObject acSendTable, "tblFireLog", acFormatXLS, "crt052681comcast.net", , , _
" Report Log", _
"Here is the monthly Log Report", False...