...& String(2, vbCr) & strMainMessage & String(3, vbCr) & strAttachmentText & vbCr
DoCmd.SendObject acSendReport, stDocName, "Snapshot Format (*.snp)", "Glenn Litchford, Rhonda Greene, John Jackson", , , strSubject, strMessageBody, True
DoCmd.Close acReport, stDocName, acSaveNo...