Email A Message (not report or table)

[XaloRichie]

OK I know its possible to mail reports etc but it seems that the user will always be aware becase either Outlook or Access pops up a send message box. So if you just want to send a message e.g. "Till Cash does not Balance with Cash book"
Does the user have to be aware?

Appart from the fact that the messagebox requires a click it would save embarassment if it can be done "covertly" !

 

[Travis]

If you are using the Docmd.SendObject function, set the EditMessage parameter=False.

 

[IMO]

Or use this code...

Private Sub YourButton_Click()

      Dim EmailApp, NameSpace, EmailSend As Object

      Set EmailApp = CreateObject("Outlook.Application")
      Set NameSpace = EmailApp.getNameSpace("MAPI")
      Set EmailSend = EmailApp.CreateItem(0)
      
      EmailSend.To = "someone@somewhere.com"
      EmailSend.Subject = "Cash"
      EmailSend.Body = "Hello," & vbCrLf & vbCrLf & "Till Cash does not Balance with Cash book" & vbCrLf & vbCrLf & "Regards Me"
      EmailSend.Send
      
      Set EmailApp = Nothing
      Set NameSpace = Nothing
      Set EmailSend = Nothing

End Sub

IMO

 

[XaloRichie]

Tried this and

I tried that code but i AM getting a run time error 429
"Activex component can't create object"

In Debug the following line is highlighted

Set EmailApp = CreateObject("Outlook.Application")

What can I do?

 

[Mile-O]

You can use the SendObject command instead, setting the final parameter to False as has been previously suggested.