I don't know what I did, but this code seems to have done the trick. Not much different from the above. If anyone has some insight, I'd appreciate it. Thanks...
Code:
Dim varApprovalRequest, varReportName, varSendTo, varHTMLBody, varEmailTemplate As String
varApprovalRequest = "c:\temp\approvalrequest.htm"
varReportName = "rpt_approvalrequest"
varSendTo = "me@company.com"
varEmailTemplate = "c:\temp\messagetemplate.oft"
DoCmd.OutputTo acOutputReport, varReportName, acFormatHTML, varApprovalRequest
Dim objOutlook, objEmail As Object
Set objOutlook = CreateObject("Outlook.application")
UserName = varSendTo
SubjectText = "Approval Request: " & [TempVars]![CurrentSR]
EmailTemplate = varEmailTemplate
Set objEmail = objOutlook.CreateItemFromTemplate(EmailTemplate)
With objEmail
.To = UserName
.Subject = SubectText
'.Body = "The body doesn't matter, just the attachment"
.HTMLBody = varHTMLBody
.Attachments.Add varApprovalRequest
.Display
'.Send - this didn't work on my setup but .Display did
'.ReadReceiptRequested
End With