Private Sub cmdEmailCustomer_Click()
Dim strTo As String
Dim strSubject As String
Dim strMessageText As String
Me.Dirty = False
strTo = Me.[E-Mail address1]
strSubject = " NCR Number " & Me.[loss order number]
strMessageText = Me.Firstname & "," & _
vbNewLine & vbNewLine & _
"Please See Attached NCR." & _
vbNewLine & vbNewLine & _
""
DoCmd.SendObject ObjectType:=acSendReport, _
ObjectName:="SEND NCR", _
OutputFormat:=acFormatPDF, _
TO:=strTo, _
Subject:=strSubject, _
messageText:=strMessageText, _
EditMessage:=True
End Sub