R
Raj
Hi,
I am hoping someone will be able to help me with the issues. I have a Form
that show the [Rep], [order_id],[customer_name], [customer_account]. I use a
combo box that sort by the sales rep and shows the line items for the order
in a subform, currently i copy and past the information in the subform in the
email. What I would like to do is have the information in the subform added
to the email as the order does.
Also, is there a way to have the email default to HTML? I have set this
option in my Outlook preference and set the format to acFormatHTML, but when
it open it open in Plain Text and I have been trying to use Chr(10) to format
the text in the Body text but it will not work any ideals?
Thanks.
Raj
Private Sub cmdmail_Click()
On Error GoTo Err_cmdmail_Click
Dim stDocName As String
stDocName = "MasterData"
DoCmd.SendObject acSendNoObject, stDocName, acFormatHTML , ([Rep]), , ,
([order_id] & " " & _
"Invoices not billed Correct. " & _
"Customer: " & [Customer_Name] & " " & _
" " & "Acct: " & [Customer_Acct]) & " " & _
"Jul 06", _
"In conducting our monthly audit, we have identified the following
discrepancies:" & _
" If you feel these are not discrepancies:, we need to know why." & _
" It would be greatly appreciated if we could contact me by 09/11/06 so
we can get this issue resolved as quickly as possible." & _
Chr(10) & _
"Thank you," & _
"Jan Davis, Auditor" & _
Chr(10) _
, , False
Exit_cmdmail_Click:
Exit Sub
Err_cmdmail_Click:
MsgBox Err.Description
Resume Exit_cmdmail_Click
End Sub
I am hoping someone will be able to help me with the issues. I have a Form
that show the [Rep], [order_id],[customer_name], [customer_account]. I use a
combo box that sort by the sales rep and shows the line items for the order
in a subform, currently i copy and past the information in the subform in the
email. What I would like to do is have the information in the subform added
to the email as the order does.
Also, is there a way to have the email default to HTML? I have set this
option in my Outlook preference and set the format to acFormatHTML, but when
it open it open in Plain Text and I have been trying to use Chr(10) to format
the text in the Body text but it will not work any ideals?
Thanks.
Raj
Private Sub cmdmail_Click()
On Error GoTo Err_cmdmail_Click
Dim stDocName As String
stDocName = "MasterData"
DoCmd.SendObject acSendNoObject, stDocName, acFormatHTML , ([Rep]), , ,
([order_id] & " " & _
"Invoices not billed Correct. " & _
"Customer: " & [Customer_Name] & " " & _
" " & "Acct: " & [Customer_Acct]) & " " & _
"Jul 06", _
"In conducting our monthly audit, we have identified the following
discrepancies:" & _
" If you feel these are not discrepancies:, we need to know why." & _
" It would be greatly appreciated if we could contact me by 09/11/06 so
we can get this issue resolved as quickly as possible." & _
Chr(10) & _
"Thank you," & _
"Jan Davis, Auditor" & _
Chr(10) _
, , False
Exit_cmdmail_Click:
Exit Sub
Err_cmdmail_Click:
MsgBox Err.Description
Resume Exit_cmdmail_Click
End Sub