email without attachment

J

Jim Mac

I need to change my code to email without attachment. Here is code:

Private Sub Command84_Click()
On Error GoTo Err_Command84_Click

Dim stDocName As String

stDocName = "western"
DoCmd.SendObject acReport, stDocName, acFormatRTF, Forms!WebBrowseWeb!blue!Emailto, Cc, Bcc, Forms!WebBrowseWeb!blue!Text46, "Thanks for taking the time to talk with me about our services. If you have any questions, or if I can be of any further assistance, please do not hesitate to call. Thank You."


Exit_Command84_Click:
Exit Sub

Err_Command84_Click:
MsgBox Err.Description
Resume Exit_Command84_Click

End Sub
 
Top