Outlook Email
This works for me:
Private Sub Email()
On Error GoTo Email_Err
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Dim strTo As String
Dim strCCs As String
Dim strFileName As String
Dim strPathName As String
Dim strReportName As String
Dim myAttachments As Attachments
Dim BodyMsg As String
'Open or use Outlook
Set myOlApp = New Outlook.Application
Set myItem = myOlApp.CreateItem(olMailItem)
strTo = "my email address "
'if you want an attachment do this,
'create doc file for sending as an attachment
DoCmd.OutputTo acOutputReport, strReportName, acFormatRTF, strInputFile
BodyMsg = "some message" & vbCrLf & vbCrLf & vbCrLf
'This Creates an Outlook attachment
Set myAttachments = myItem.Attachments
With myAttachments
.Add strPathName & strFileName
End With
With myItem
.To = strTo
.CC = strCCs
.subject = "some subject"
.Body = BodyMsg
.Display
End With
Set myOlApp = Nothing
Set myItem = Nothing
Exit_Email_Click:
Exit Sub
Email_Err:
MsgBox "Default email program could not be started." & vbCrLf & "Please check your settings.", vbCritical, "Email Error"
Resume Exit_Email_Click
End Sub