Code:
Private Sub cmdEmail_Click()
Dim strTo As String
Dim strSubject As String
Dim strMessageText As String
Me.Dirty = False
strTo = [Order Details subform].[Form]![EMailaddress]
strSubject = " Acknowledgement Number " & Me.id
strMessageText = Me.Firstname & "," & _
vbNewLine & vbNewLine & _
"Your latest Acknowledgement is attached." & _
vbNewLine & vbNewLine & _
""
DoCmd.SendObject ObjectType:=acSendReport, _
ObjectName:="order acknowledgement", _
OutputFormat:=acFormatPDF, _
To:=strTo, _
Subject:=strSubject, _
messageText:=strMessageText, _
EditMessage:=True
End Sub
This code sends the an e.mail to the customer but i need to send the terms and conditions which is a pdf file with the "order acknowledgement" at this time i have attached the terms and condition file to a table called attachments .
thanks
steve