Hi, the docmd object is not very good at sending attachments.
Here is the code that I used, it should have Error Trapping added,
Dim objOutlook As New Outlook.Application ' outlook object
Dim objMessage As MailItem, strAttach As String ' outlook mail message
Dim Subject As String, Body As String, EmailAddress As String
EmailAddress = Me.EmailAddress
strAttach = Me.Attachment
Set objMessage = objOutlook.CreateItem(olMailItem)
With objMessage
.To = EmailAddress
.Subject = "Test Send"
.Body = "This is a Test"
.Attachments.Add strAttach
.DisplayName = "Joe Bloggs"
.Send
End With
Set objOutlook = Nothing
Set objMessage = Nothing