email without attachment

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a button that sends a report as an attachment, however, I would like to send the email without the attachment. Also I notice that the outlook signature that usually works does not appear. Here is my 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
 
Try:

DoCmd.SendObject acSendNoObject, , , 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."
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access


Jim Mac said:
I have a button that sends a report as an attachment, however, I would
Click to expand...
like to send the email without the attachment. Also I notice that the
outlook signature that usually works does not appear. Here is my code
Private Sub Command84_Click()
On Error GoTo Err_Command84_Click

Dim stDocName As String

stDocName = "western"
DoCmd.SendObject acReport, stDocName, acFormatRTF,
Click to expand...
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."
 
Back
Top